mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-output): Don't quote "From " lines unless the capitalization is exact.

Browse source
This commit is contained in:
Karl Heuer 1994-12-02 02:08:31 +00:00
parent 9a2c20d57f
commit c4613e62bd
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/mail/rmailout.el
View file

@ -300,9 +300,10 @@ The optional fourth argument FROM-GNUS is set when called from GNUS."
;; ``Quote'' "\nFrom " as "\n>From "
;; (note that this isn't really quoting, as there is no requirement
;; that "\n[>]+From " be quoted in the same transparent way.)
(while (search-forward "\nFrom " nil t)
(forward-char -5)
(insert ?>))
(let ((case-fold-search nil))
(while (search-forward "\nFrom " nil t)
(forward-char -5)
(insert ?>)))
(write-region (point-min) (point-max) file-name t
(if noattribute 'nomsg)))
(or noattribute