From 035562bb5018b0c6c33fbcab9488bc5ef20820e9 Mon Sep 17 00:00:00 2001 From: keiichi Date: Wed, 4 Nov 1998 01:39:12 +0000 Subject: [PATCH] Sync up with Semi-gnus 6.8. --- lisp/message.el | 26 +++++++++++++++----------- 1 file changed, 15 insertions(+), 11 deletions(-) diff --git a/lisp/message.el b/lisp/message.el index 691687a..e83afde 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3047,17 +3047,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