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.