procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(rmail-dont-reply-to): Replace matched

Browse source 
userids differently.
This commit is contained in:
Gerd Moellmann 2000-01-27 16:53:17 +00:00
parent ffe0bcd1bb
commit a0b796e3ed
2 changed files with 15 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2000-01-27 Gerd Moellmann <gerd@gnu.org>
* mail/mail-utils.el (rmail-dont-reply-to): Replace matched
userids differently.
* progmodes/ebnf2ps.el, progmodes/ebnf-bnf.el,
progmodes/ebnf-iso.el, progmodes/ebnf-otz.el,
progmodes/ebnf-yac.el: New files.

29
lisp/mail/mail-utils.el
View file

@ -226,29 +226,23 @@ Usenet paths ending in an element that matches are removed also."
;; Include the human name that precedes <foo@bar>.
"\\([^\,.<\"]\\|\"[^\"]*\"\\)*"
"<\\(" rmail-dont-reply-to-names "\\)"
"\\)"))
"\\)[^,]*"))
(case-fold-search t)
pos epos)
(while (setq pos (string-match match userids pos))
(if (> pos 0) (setq pos (match-beginning 2)))
(setq epos
;; Delete thru the next comma, plus whitespace after.
(if (string-match ",[ \t\n]*" userids (match-end 0))
(match-end 0)
(length userids)))
;; Count the double-quotes since the beginning of the list.
;; Reject this match if it is inside a pair of doublequotes.
(let (quote-pos inside-quotes)
(while (and (setq quote-pos (string-match "\"" userids quote-pos))
(< quote-pos pos))
(setq quote-pos (1+ quote-pos))
(setq inside-quotes (not inside-quotes)))
;; If there's a match, it starts at the beginning of the string,
;; or with `,'. We must delete from that position to the
;; end of the user-id which starts at match-beginning 2.
(let (inside-quotes quote-pos)
(save-match-data
(while (and (setq quote-pos (string-match "\"" userids quote-pos))
(< quote-pos pos))
(setq quote-pos (1+ quote-pos))
(setq inside-quotes (not inside-quotes))))
(if inside-quotes
;; Advance to next even-parity quote, and scan from there.
(setq pos (string-match "\"" userids pos))
(setq userids
(mail-string-delete
userids pos epos)))))
(setq userids (replace-match "" nil nil userids)))))
;; get rid of any trailing commas
(if (setq pos (string-match "[ ,\t\n]*\\'" userids))
(setq userids (substring userids 0 pos)))
@ -256,6 +250,7 @@ Usenet paths ending in an element that matches are removed also."
(if (string-match "\\s *" userids)
(substring userids (match-end 0))
userids)))
;;;###autoload
(defun mail-fetch-field (field-name &optional last all list)