[Mew-dist 304] Adding CT: & CTE: problem

[Maybe TABOO]

draft 編集中にヘッダ部を誤って delete-region して、すぐに yank なんか
することがたまにあるのですが、その場合、送信するときに CT: と CTE: が
とんでもないところについてしまいます。

この問題については、以下のパッチでとりあえず大丈夫そうです。

--- mew-encode.el.ORG	Tue Nov 26 01:34:24 1996
+++ mew-encode.el	Tue Dec 17 15:27:23 1996
@@ -71,9 +71,14 @@
     ))
 
 (defun mew-draft-make-single ()
-  (goto-char (marker-position mew-draft-buffer-header))
-  ;; the beginning of "----"
-  (let ((beg (point)))
+  (widen)
+  (goto-char (point-min))
+  (let ((case-fold-search t)
+	(beg nil))
+    (re-search-forward "^-*$" nil t)
+    (beginning-of-line)
+    (setq beg (point))
+    ;; the beginning of "----"
     (forward-line 1)
     ;; cursor is just after "----\n"
     (delete-region beg (point))
@@ -287,7 +292,12 @@
   ;; delete body
   ;;
   ;; delete delimiter
-  (goto-char (marker-position mew-draft-buffer-header))
+  (widen)
+  (goto-char (point-min))
+  (let ((case-fold-search t)
+	(beg nil))
+    (re-search-forward "^-*$" nil t)
+    (beginning-of-line))
   ;; the beginning of "----"
   (let ((beg (point))
 	(syntax mew-encode-syntax) 
----
こがよういちろう＠ＮＥＣ ＮＷ技研
y-koga at example.com