diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-12-17 20:53:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-12-17 20:53:28 +0000 |
| commit | a614ad641db8b517484f2c010f38647292c7a9e0 (patch) | |
| tree | cf24738dc8cebe648199ab9a70283ef7a074b559 /lisp | |
| parent | 08d3dc5ca8b2acf7e708e95e1ba1b83bcc386550 (diff) | |
| download | emacs-a614ad641db8b517484f2c010f38647292c7a9e0.tar.gz | |
(news-mail-reply, news-reply): Include the message
ID in the In-reply-to line.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/rnewspost.el | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/lisp/mail/rnewspost.el b/lisp/mail/rnewspost.el index 46becf890b5..3d6be2505f0 100644 --- a/lisp/mail/rnewspost.el +++ b/lisp/mail/rnewspost.el @@ -290,7 +290,7 @@ summary (abstract) of the message." While composing the reply, use \\[news-reply-yank-original] to yank the original message into it." (interactive) - (let (from cc subject date to reply-to + (let (from cc subject date to reply-to message-id (buffer (current-buffer))) (save-restriction (narrow-to-region (point-min) (progn (goto-line (point-min)) @@ -299,7 +299,8 @@ original message into it." (setq from (mail-fetch-field "from") subject (mail-fetch-field "subject") reply-to (mail-fetch-field "reply-to") - date (mail-fetch-field "date"))) + date (mail-fetch-field "date") + message-id (mail-fetch-field "message-id"))) (setq to from) (pop-to-buffer "*mail*") (mail nil @@ -307,7 +308,10 @@ original message into it." subject (let ((stop-pos (string-match " *at \\| *@ \\| *(\\| *<" from))) (concat (if stop-pos (substring from 0 stop-pos) from) - "'s message of " + "'s message " + (if message-id + (concat message-id " of ") + "of ") date)) nil buffer))) @@ -366,7 +370,10 @@ original message into it." (setq message-of (concat (if stop-pos (substring from 0 stop-pos) from) - "'s message of " + "'s message " + (if message-id + (concat message-id " of ") + "of ") date))))) (news-setup nil |