Mercurial > emacs

comparison lisp/gnus/message.el @ 85888:ff86fe6b4194

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from gnus--devo--0 Patches applied: * gnus--devo--0 (patch 404-406) - Merge from gnus--rel--5.10 - Update from CVS * gnus--rel--5.10 (patch 266) - Merge from emacs--rel--22 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-919
author Miles Bader <miles@gnu.org>
date Fri, 02 Nov 2007 01:38:49 +0000
parents a3af441f6431
children 403aa95593fa
comparison
equal deleted inserted replaced
85887:a3b1d55c8ddb 85888:ff86fe6b4194
5344 ((stringp message-user-path) 5344 ((stringp message-user-path)
5345 ;; Support GENERICPATH. Suggested by vixie@decwrl.dec.com. 5345 ;; Support GENERICPATH. Suggested by vixie@decwrl.dec.com.
5346 (concat message-user-path "!" login-name)) 5346 (concat message-user-path "!" login-name))
5347 (t login-name)))) 5347 (t login-name))))
5348 5348
5349 (defun message-make-from (&optional name address ) 5349 (defun message-make-from (&optional name address)
5350 "Make a From header." 5350 "Make a From header."
5351 (let* ((style message-from-style) 5351 (let* ((style message-from-style)
5352 (login (or address (message-make-address))) 5352 (login (or address (message-make-address)))
5353 (fullname (or name 5353 (fullname (or name
5354 (and (boundp 'user-full-name) 5354 (and (boundp 'user-full-name)