From 576f3c8718f62d37dc2c3b7ce24215f63f56bd1d Mon Sep 17 00:00:00 2001 From: hayashi Date: Mon, 2 Nov 1998 11:20:14 +0000 Subject: [PATCH] Generate In-Reply-To header according to draft-ietf-drums-msg-fmt-05. --- lisp/message.el | 26 +++++++++++++++----------- 1 file changed, 15 insertions(+), 11 deletions(-) diff --git a/lisp/message.el b/lisp/message.el index bc367d3..34b5773 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -2943,17 +2943,21 @@ to find out how to use this." "Return the In-Reply-To header for this message." (when message-reply-headers (let ((from (mail-header-from message-reply-headers)) - (date (mail-header-date message-reply-headers))) - (when from - (let ((stop-pos - (string-match " *at \\| *@ \\| *(\\| *<" from))) - (concat (if (and stop-pos - (not (zerop stop-pos))) - (substring from 0 stop-pos) from) - "'s message of \"" - (if (or (not date) (string= date "")) - "(unknown date)" date) - "\"")))))) + (date (mail-header-date message-reply-headers)) + (msg-id (mail-header-message-id message-reply-headers))) + (when msg-id + (concat msg-id + (when from + (let ((stop-pos + (string-match " *at \\| *@ \\| *(\\| *<" from))) + (concat " (" + (if (and stop-pos + (not (zerop stop-pos))) + (substring from 0 stop-pos) from) + "'s message of \"" + (if (or (not date) (string= date "")) + "(unknown date)" date) + "\")")))))))) (defun message-make-distribution () "Make a Distribution header." -- 1.7.10.4