[Mew-dist 07115] Re: mew-gnus-reply & mew-draft-cite

[Mito]

※ "水" こと mit at example.com の
   『[Mew-dist 07114] mew-gnus-reply & mew-draft-cite』より

水> mew-gnus-reply() でメールの送信を行った場合の
水> mew-draft-cite() の不具合を一応対応しましたが、対応方法に自
水> 信がないので添削をお願いします。

すみません、diff を添付するのを忘れていました。f^_^;
-- 
12/16 16:31頃
NECソフトウェア新潟 水戸
mailto:mit at example.com \n
-------------- next part --------------
--- mew-draft.el	1998/12/16 05:14:54	1.1
+++ mew-draft.el	1998/12/16 05:54:42
@@ -817,7 +817,7 @@
 	   ;; arg will be effect in mew-cite-original
 	   ((mew-mark) 
 	    (setq beg (region-beginning) end (region-end)))
-	   ((mew-header-p)
+	   ((or (mew-header-p) nonmewbuf)
 	    ;; header exists in Message mode. Skip the header
 	    ;; because we will concatenate it to cite later.
 	    (mew-header-goto-body)
@@ -841,6 +841,10 @@
 	  (setq cite (concat (mew-buffer-substring (point-min) (point)) 
 			     "\n" cite))
           (setq ref-msgid (mew-header-get-value mew-message-id:))
+          (if (string-match "<[^>]+>" ref-msgid)
+              (setq ref-msgid (substring ref-msgid
+                                         (match-beginning 0) (match-end 0)))
+            (setq ref-msgid nil))
 	  ))
       ;; 
       ;; Draft mode, insert the header and the body.
--- contrib/mew-gnus.el	1998/12/16 01:09:33	1.1
+++ contrib/mew-gnus.el	1998/12/16 06:27:23
@@ -119,15 +119,13 @@
   (interactive)
   (mew-gnus-init)
   (let ((file (mew-folder-new-message mew-draft-folder))
-	from cc subject date to reply-to newsgroups in-reply-to references
+	from cc subject to reply-to newsgroups in-reply-to references
 	distribution)
     (mew-summary-prepare-draft
      (mew-current-set 'window (current-window-configuration))
      (delete-other-windows)
-     (gnus-summary-display-article (gnus-summary-article-number) t) ;; redisplay
+     (gnus-summary-display-article (gnus-summary-article-number)) ;; redisplay
      (pop-to-buffer gnus-article-buffer)
-     (goto-char (point-max))
-     (push-mark (point) t t)
      (goto-char (point-min))
      (search-forward "\n\n" nil t)
      (let ((split-window-keep-point t))
@@ -142,10 +140,9 @@
 	   cc (gnus-fetch-field "Cc")
 	   newsgroups (or (gnus-fetch-field "Followup-To")
 			  (gnus-fetch-field "Newsgroups"))
-	   date (gnus-fetch-field "Date")
 	   distribution (gnus-fetch-field "Distribution")
-	   in-reply-to (mew-header-get-value mew-message-id:)
-	   references (mew-header-get-value mew-references:))
+	   in-reply-to (gnus-fetch-field "Message-Id")
+	   references (gnus-fetch-field "References"))
      (if (and in-reply-to (string-match "<[^\t >]+>" in-reply-to))
 	 (setq in-reply-to (mew-match 0 in-reply-to))
        (setq in-reply-to nil))