Mercurial > emacs

comparison lisp/mail/mail-extr.el @ 14500:20946c9d3806

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-extract-address-components): Accept strings that end with double trailing quote marks.
author Richard M. Stallman <rms@gnu.org>
date Tue, 06 Feb 1996 10:06:24 +0000
parents 83f275dcd93a
children 4706508583bd
comparison
equal deleted inserted replaced
14499:894f8352b8e5 14500:20946c9d3806
1272 (setq quote-end (- (point) 2)) 1272 (setq quote-end (- (point) 2))
1273 (save-excursion 1273 (save-excursion
1274 (backward-char 1) 1274 (backward-char 1)
1275 (mail-extr-delete-char 1) 1275 (mail-extr-delete-char 1)
1276 (goto-char quote-beg) 1276 (goto-char quote-beg)
1277 (mail-extr-delete-char 1)) 1277 (or (eobp)
1278 (mail-extr-delete-char 1)))
1278 (mail-extr-undo-backslash-quoting quote-beg quote-end) 1279 (mail-extr-undo-backslash-quoting quote-beg quote-end)
1279 (or (eq ?\ (char-after (point))) 1280 (or (eq ?\ (char-after (point)))
1280 (insert " ")) 1281 (insert " "))
1281 ;; (setq mailbox-name-processed-flag t) 1282 ;; (setq mailbox-name-processed-flag t)
1282 (setq \.-ends-name t)) 1283 (setq \.-ends-name t))