From: Richard M. Stallman Date: Sat, 4 Sep 1999 00:08:17 +0000 (+0000) Subject: (mh-forward): Get new subject line from the original, X-Git-Tag: emacs-pretest-21.0.90~6907 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=41b9a9887c4d6aa14f67cb78b8cfe4d9e86ec200;p=emacs.git (mh-forward): Get new subject line from the original, not from the draft to forward. --- diff --git a/lisp/mail/mh-comp.el b/lisp/mail/mh-comp.el index f24d3c4f68d..ceb38043e11 100644 --- a/lisp/mail/mh-comp.el +++ b/lisp/mail/mh-comp.el @@ -26,7 +26,7 @@ ;;; Change Log: -;; $Id: mh-comp.el,v 1.13 1998/06/24 09:16:26 schwab Exp kwzh $ +;; $Id: mh-comp.el,v 1.14 1999/03/01 03:47:07 kwzh Exp rms $ ;;; Code: @@ -307,23 +307,27 @@ See also documentation for `\\[mh-send]' function." (mh-insert-fields "To:" to "Cc:" cc) (save-buffer))) (t - (mh-read-draft "" draft-name nil))))) + (mh-read-draft "" draft-name nil)))) + (fwd-msg-file (mh-msg-filename (if (numberp msg-or-seq) + msg-or-seq + (car (mh-seq-to-msgs msg-or-seq))) + folder))) (let (orig-from orig-subject) - (goto-char (point-min)) - (re-search-forward "^------- Forwarded Message") - (forward-line 1) - (skip-chars-forward " \t\n") - (save-restriction - (narrow-to-region (point) (point-max)) + (save-excursion + (set-buffer (get-buffer-create mh-temp-buffer)) + (erase-buffer) + (insert-file-contents fwd-msg-file) (setq orig-from (mh-get-header-field "From:")) (setq orig-subject (mh-get-header-field "Subject:"))) (let ((forw-subject (mh-forwarded-letter-subject orig-from orig-subject))) (mh-insert-fields "Subject:" forw-subject) (goto-char (point-min)) - (re-search-forward "^------- Forwarded Message") - (forward-line -1) + (if (re-search-forward "^------- Forwarded Message" nil t) + (forward-line -1) + (re-search-forward "^--------") + (forward-line 1)) (delete-other-windows) (if (numberp msg-or-seq) (mh-add-msgs-to-seq msg-or-seq 'forwarded t)