Mercurial > emacs
comparison lisp/mail/pmail.el @ 100210:e3e43d2279ea
(pmail-get-header): Call pmail-swap-buffers-maybe.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Thu, 04 Dec 2008 13:41:10 +0000 |
| parents | bc5e659c237c |
| children | eb0db38d20d1 |
comparison
equal
deleted
inserted
replaced
| 100209:1ccd98fcab8c | 100210:e3e43d2279ea |
|---|---|
| 2496 | 2496 |
| 2497 (defun pmail-get-header (name &optional msg) | 2497 (defun pmail-get-header (name &optional msg) |
| 2498 "Return the value of message header NAME, nil if no such header | 2498 "Return the value of message header NAME, nil if no such header |
| 2499 exists. MSG, if set identifies the message number to use. The | 2499 exists. MSG, if set identifies the message number to use. The |
| 2500 current mail message will be used otherwise." | 2500 current mail message will be used otherwise." |
| 2501 (pmail-swap-buffers-maybe) | |
| 2501 (save-excursion | 2502 (save-excursion |
| 2502 (save-restriction | 2503 (save-restriction |
| 2503 (with-current-buffer pmail-buffer | 2504 (with-current-buffer pmail-buffer |
| 2504 (widen) | 2505 (widen) |
| 2505 (let* ((n (or msg pmail-current-message)) | 2506 (let* ((n (or msg pmail-current-message)) |