[Mew-dist 10117] patch for contrib/mew-guess.el

[OBATA Noboru]

1.94b50 に入れていただいた contrib/mew-guess.el には、推測後ヘッ
ダ領域でのキーマップが消えてしまう(？)という不具合がありました。

-- 
小幡 昇 (obata at example.com)
-------------- next part --------------
Index: mew-guess.el
===================================================================
RCS file: /home/cvsroot/obata/mew/mew-guess.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- mew-guess.el	1999/08/17 00:06:07	1.4
+++ mew-guess.el	1999/08/17 00:13:32	1.5
@@ -185,6 +185,7 @@
 	      (message "Nothing changed")) ; nothing done
 	;; something changed! query if need
 	(mew-highlight-header)
+        (mew-draft-header-keymap)
 	(if (or (not mew-guess-query-when-replaced)
 		(y-or-n-p "Headers are changed. Accept this? "))
 	    (message "Some headers are changed") ; accepted
@@ -193,7 +194,8 @@
 	  (insert undo)
 	  (mew-header-goto-end)
 	  (mew-highlight-header)
-	  (message "Changes are cacneled"))))))
+	  (mew-draft-header-keymap)
+	  (message "Changes are canceled"))))))
 
 
 (defun mew-header-replace-value (field value)
@@ -215,7 +217,7 @@
 	orgvalue)
     (if (not (and (stringp field)
 		  (or (null newvalue) (stringp newvalue))))
-	(error "Invalid field pair in mew-config-replace-alist")
+	(error "Invalid field pair in mew-header-replace-alist")
       (setq orgvalue (mew-header-get-value field))
       (if (and orgvalue
 	       newvalue