Mercurial > emacs

comparison lisp/mh-e/mh-comp.el @ 91010:aaccdab0ee26

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 852-856) - Update from CVS - Merge from emacs--rel--22 * emacs--rel--22 (patch 93-96) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 245) - Update from CVS Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-249
author Miles Bader <miles@gnu.org>
date Tue, 21 Aug 2007 04:54:03 +0000
parents f55f9811f5d7 6cd0b704b471
children b83d0dadb2a7
comparison
equal deleted inserted replaced
91009:e7395a700642 91010:aaccdab0ee26
495 (beginning-of-line) 495 (beginning-of-line)
496 (delete-region (point) (progn (forward-line 1) (point))) 496 (delete-region (point) (progn (forward-line 1) (point)))
497 (dolist (msg msgs) 497 (dolist (msg msgs)
498 (setq i (1+ i)) 498 (setq i (1+ i))
499 (mh-mml-forward-message (format description i) 499 (mh-mml-forward-message (format description i)
500 folder msg)))))) 500 folder msg)
501 ;; Was inserted before us, move to end of file to preserve order
502 (goto-char (point-max)))))))
501 ;; Postition just before forwarded message 503 ;; Postition just before forwarded message
502 (if (re-search-forward "^------- Forwarded Message" nil t) 504 (if (re-search-forward "^------- Forwarded Message" nil t)
503 (forward-line -1) 505 (forward-line -1)
504 (goto-char (mh-mail-header-end)) 506 (goto-char (mh-mail-header-end))
505 (forward-line 1)) 507 (forward-line 1))