Mercurial > emacs
changeset 16712:aad91ec41fa4
(news-mail-reply, news-reply): Include the message
ID in the In-reply-to line.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 17 Dec 1996 20:53:28 +0000 |
| parents | 890b229ea0c7 |
| children | 490b479ce48a |
| files | lisp/mail/rnewspost.el |
| diffstat | 1 files changed, 11 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rnewspost.el Tue Dec 17 20:24:43 1996 +0000 +++ b/lisp/mail/rnewspost.el Tue Dec 17 20:53:28 1996 +0000 @@ -290,7 +290,7 @@ 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 @@ (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 @@ 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 @@ (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