/[emacs]/emacs/lisp/mail/mail-utils.el
ViewVC logotype

Diff of /emacs/lisp/mail/mail-utils.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.52 by pmr-sav, Wed Mar 20 08:08:48 2002 UTC revision 1.52.2.1 by miles, Fri Apr 4 06:20:27 2003 UTC
# Line 32  Line 32 
32  ;;; We require lisp-mode to make sure that lisp-mode-syntax-table has  ;;; We require lisp-mode to make sure that lisp-mode-syntax-table has
33  ;;; been initialized.  ;;; been initialized.
34  (require 'lisp-mode)  (require 'lisp-mode)
35                        
36  ;;;###autoload  ;;;###autoload
37  (defcustom mail-use-rfc822 nil "\  (defcustom mail-use-rfc822 nil "\
38  *If non-nil, use a full, hairy RFC822 parser on mail addresses.  *If non-nil, use a full, hairy RFC822 parser on mail addresses.
# Line 166  Return a modified address list." Line 166  Return a modified address list."
166               (setq address (buffer-string))               (setq address (buffer-string))
167               (erase-buffer))               (erase-buffer))
168           ;; Strip non-nested comments an easier way.           ;; Strip non-nested comments an easier way.
169           (while (setq pos (string-match           (while (setq pos (string-match
170                              ;; This doesn't hack rfc822 nested comments                              ;; This doesn't hack rfc822 nested comments
171                              ;;  `(xyzzy (foo) whinge)' properly.  Big deal.                              ;;  `(xyzzy (foo) whinge)' properly.  Big deal.
172                              "[ \t]*(\\([^)\\]\\|\\\\.\\|\\\\\n\\)*)"                              "[ \t]*(\\([^)\\]\\|\\\\.\\|\\\\\n\\)*)"
# Line 240  the comma-separated list.  The pruned li Line 240  the comma-separated list.  The pruned li
240                 (naked-address (mail-strip-quoted-names address)))                 (naked-address (mail-strip-quoted-names address)))
241            (if (string-match rmail-dont-reply-to-names naked-address)            (if (string-match rmail-dont-reply-to-names naked-address)
242                (setq destinations (concat (substring destinations 0 start-pos)                (setq destinations (concat (substring destinations 0 start-pos)
243                                      (and cur-pos (substring destinations                                      (and cur-pos (substring destinations
244                                                              (1+ cur-pos))))                                                              (1+ cur-pos))))
245                      cur-pos start-pos)                      cur-pos start-pos)
246              (setq cur-pos (and cur-pos (1+ cur-pos))              (setq cur-pos (and cur-pos (1+ cur-pos))

Legend:
Removed from v.1.52  
changed lines
  Added in v.1.52.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26