Mercurial > emacs

comparison lisp/mail/undigest.el @ 11498:da7bbadf9999

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(undigestify-rmail-message): Strip "^- " which is added by some digest makers to the beginning of lines.
author Richard M. Stallman <rms@gnu.org>
date Thu, 20 Apr 1995 02:31:16 +0000
parents cc7cd83ccf3f
children 21a1494b450c
comparison
equal deleted inserted replaced
11497:c98433c64db1 11498:da7bbadf9999
97 (insert "To: " digest-name "\n\n") 97 (insert "To: " digest-name "\n\n")
98 (narrow-to-region (point) 98 (narrow-to-region (point)
99 (progn (search-forward "\n\n" 99 (progn (search-forward "\n\n"
100 nil 'move) 100 nil 'move)
101 (point)))) 101 (point))))
102 (if (mail-fetch-field "To") nil 102 (if (mail-fetch-field "To")
103 nil
103 (goto-char (point-min)) 104 (goto-char (point-min))
104 (insert "To: " digest-name "\n")))))) 105 (insert "To: " digest-name "\n")))
106 ;; Digestifiers may insert `- ' on lines that start with `-'.
107 ;; Undo that.
108 (save-excursion
109 (goto-char (point-min))
110 (if (re-search-forward
111 "\n\n----------------------------*\n*"
112 nil t)
113 (let ((end (point-marker)))
114 (goto-char (point-min))
115 (while (re-search-forward "^- " end t)
116 (delete-char -2)))))
117 )))
105 (setq error nil) 118 (setq error nil)
106 (message "Message successfully undigestified") 119 (message "Message successfully undigestified")
107 (let ((n rmail-current-message)) 120 (let ((n rmail-current-message))
108 (rmail-forget-messages) 121 (rmail-forget-messages)
109 (rmail-show-message n) 122 (rmail-show-message n)