Mercurial > emacs

comparison lisp/mail/undigest.el @ 49109:39d762048cdd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(unforward-rmail-message): Simplified. No functional change.
author Francesco Potortì <pot@gnu.org>
date Wed, 08 Jan 2003 09:11:23 +0000
parents 217ecd0c470e
children 756931f84374
comparison
equal deleted inserted replaced
49108:d9f8fdaf8558 49109:39d762048cdd
241 (setq forward-msg 241 (setq forward-msg
242 (replace-regexp-in-string 242 (replace-regexp-in-string
243 "^- -" "-" (buffer-substring beg end)))) 243 "^- -" "-" (buffer-substring beg end))))
244 ((and (re-search-forward "^\\(> ?\\)[a-zA-Z-]+: .*\n" nil t) 244 ((and (re-search-forward "^\\(> ?\\)[a-zA-Z-]+: .*\n" nil t)
245 (setq beg (match-beginning 0)) 245 (setq beg (match-beginning 0))
246 (setq prefix (match-string 1)) 246 (setq prefix (match-string-no-properties 1))
247 (goto-char beg) 247 (goto-char beg)
248 (looking-at (concat "\\(" prefix ".+\n\\)*" 248 (looking-at (concat "\\(" prefix ".+\n\\)*"
249 prefix "Date: .+\n" 249 prefix "Date: ."))
250 "\\(" prefix ".+\n\\)*"
251 "\\(> ?\\)?\n" prefix))
252 (goto-char beg)
253 (looking-at (concat "\\(" prefix ".+\n\\)*" 250 (looking-at (concat "\\(" prefix ".+\n\\)*"
254 prefix "From: .+\n" 251 prefix "From: .+\n"
255 "\\(" prefix ".+\n\\)*" 252 "\\(" prefix ".+\n\\)*"
256 "\\(> ?\\)?\n" prefix))) 253 "\\(> ?\\)?\n" prefix)))
257 (re-search-forward "^[^>\n]" nil 'move) 254 (re-search-forward "^[^>\n]" nil 'move)