Mercurial > emacs
comparison lisp/mail/rmail.el @ 1137:6f2689fa1c37
*** empty log message ***
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 14 Sep 1992 19:00:13 +0000 |
| parents | e33f6475229a |
| children | 5bfabf7de8e9 |
comparison
equal
deleted
inserted
replaced
| 1136:4d4c177b980f | 1137:6f2689fa1c37 |
|---|---|
| 1505 (interactive) | 1505 (interactive) |
| 1506 (let ((forward-buffer (current-buffer)) | 1506 (let ((forward-buffer (current-buffer)) |
| 1507 (subject (concat "[" | 1507 (subject (concat "[" |
| 1508 (mail-strip-quoted-names (mail-fetch-field "From")) | 1508 (mail-strip-quoted-names (mail-fetch-field "From")) |
| 1509 ": " (or (mail-fetch-field "Subject") "") "]"))) | 1509 ": " (or (mail-fetch-field "Subject") "") "]"))) |
| 1510 ;; If only one window, use it for the mail buffer. | 1510 ;; Turn off the usual actions for initializing the message body |
| 1511 ;; Otherwise, use another window for the mail buffer | 1511 ;; because we want to get only the text from the failure message. |
| 1512 ;; so that the Rmail buffer remains visible | 1512 (let (mail-signature mail-setup-hook) |
| 1513 ;; and sending the mail will get back to it. | 1513 ;; If only one window, use it for the mail buffer. |
| 1514 (if (funcall (if (one-window-p t) | 1514 ;; Otherwise, use another window for the mail buffer |
| 1515 (function mail) | 1515 ;; so that the Rmail buffer remains visible |
| 1516 (function mail-other-window)) | 1516 ;; and sending the mail will get back to it. |
| 1517 nil nil subject nil nil nil | 1517 (if (funcall (if (one-window-p t) |
| 1518 (list (list (function (lambda (buf msgnum) | 1518 (function mail) |
| 1519 (save-excursion | 1519 (function mail-other-window)) |
| 1520 (set-buffer buf) | 1520 nil nil subject nil nil nil |
| 1521 (rmail-set-attribute "forwarded" t msgnum)))) | 1521 (list (list (function (lambda (buf msgnum) |
| 1522 (current-buffer) | 1522 (save-excursion |
| 1523 rmail-current-message))) | 1523 (set-buffer buf) |
| 1524 (save-excursion | 1524 (rmail-set-attribute "forwarded" t msgnum)))) |
| 1525 (goto-char (point-max)) | 1525 (current-buffer) |
| 1526 (forward-line 1) | 1526 rmail-current-message))) |
| 1527 (insert-buffer forward-buffer))))) | 1527 (save-excursion |
| 1528 (goto-char (point-max)) | |
| 1529 (forward-line 1) | |
| 1530 (insert-buffer forward-buffer)))))) | |
| 1528 | 1531 |
| 1529 (defun rmail-resend (address &optional from comment mail-alias-file) | 1532 (defun rmail-resend (address &optional from comment mail-alias-file) |
| 1530 "Resend current message to ADDRESSES. | 1533 "Resend current message to ADDRESSES. |
| 1531 ADDRESSES should be a single address, a a string consisting of several | 1534 ADDRESSES should be a single address, a a string consisting of several |
| 1532 addresses separated by commas, or a list of addresses. | 1535 addresses separated by commas, or a list of addresses. |