Mercurial > hg > xemacs-beta

comparison lisp/gnus/message.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 25f70ba0133c
children 0132846995bd
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
2482 (date (mail-header-date message-reply-headers))) 2482 (date (mail-header-date message-reply-headers)))
2483 (when from 2483 (when from
2484 (let ((stop-pos 2484 (let ((stop-pos
2485 (string-match " *at \\| *@ \\| *(\\| *<" from))) 2485 (string-match " *at \\| *@ \\| *(\\| *<" from)))
2486 (concat (if stop-pos (substring from 0 stop-pos) from) 2486 (concat (if stop-pos (substring from 0 stop-pos) from)
2487 "'s message of " 2487 "'s message of \""
2488 (if (or (not date) (string= date "")) 2488 (if (or (not date) (string= date ""))
2489 "(unknown date)" date))))))) 2489 "(unknown date)" date)
2490 "\""))))))
2490 2491
2491 (defun message-make-distribution () 2492 (defun message-make-distribution ()
2492 "Make a Distribution header." 2493 "Make a Distribution header."
2493 (let ((orig-distribution (message-fetch-reply-field "distribution"))) 2494 (let ((orig-distribution (message-fetch-reply-field "distribution")))
2494 (cond ((message-functionp message-distribution-function) 2495 (cond ((message-functionp message-distribution-function)