Mercurial > emacs
comparison lisp/mh-e/mh-mime.el @ 91367:c70e45a7acfd
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-324
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 30 Jan 2008 07:57:28 +0000 |
| parents | 606f2d163a64 3f6a9fe50cce |
| children |
comparison
equal
deleted
inserted
replaced
| 91366:86f3a8f0a3a6 | 91367:c70e45a7acfd |
|---|---|
| 1619 This action can be undone by running \\[undo]." | 1619 This action can be undone by running \\[undo]." |
| 1620 (interactive) | 1620 (interactive) |
| 1621 (require 'message) | 1621 (require 'message) |
| 1622 (when mh-pgp-support-flag | 1622 (when mh-pgp-support-flag |
| 1623 ;; PGP requires actual e-mail addresses, not aliases. | 1623 ;; PGP requires actual e-mail addresses, not aliases. |
| 1624 ;; Parse the recipients and sender from the message | 1624 ;; Parse the recipients and sender from the message. |
| 1625 (message-options-set-recipient) | 1625 (message-options-set-recipient) |
| 1626 ;; Do an alias lookup on sender | 1626 ;; Do an alias lookup on sender (if From field is present). |
| 1627 (message-options-set 'message-sender | 1627 (when (message-options-get 'message-sender) |
| 1628 (mail-strip-quoted-names | 1628 (message-options-set 'message-sender |
| 1629 (mh-alias-expand | 1629 (mail-strip-quoted-names |
| 1630 (message-options-get 'message-sender)))) | 1630 (mh-alias-expand |
| 1631 (message-options-get 'message-sender))))) | |
| 1631 ;; Do an alias lookup on recipients | 1632 ;; Do an alias lookup on recipients |
| 1632 (message-options-set 'message-recipients | 1633 (message-options-set 'message-recipients |
| 1633 (mapconcat | 1634 (mapconcat |
| 1634 '(lambda (ali) | 1635 '(lambda (ali) |
| 1635 (mail-strip-quoted-names (mh-alias-expand ali))) | 1636 (mail-strip-quoted-names (mh-alias-expand ali))) |