Mercurial > emacs
comparison lisp/gnus/message.el @ 85888:ff86fe6b4194
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) |