[Emacs-diffs] Changes to emacs/lisp/mail/mail-utils.el

[Juanma Barranquero]

Index: emacs/lisp/mail/mail-utils.el
diff -c emacs/lisp/mail/mail-utils.el:1.52 emacs/lisp/mail/mail-utils.el:1.53
*** emacs/lisp/mail/mail-utils.el:1.52  Wed Mar 20 03:08:48 2002
--- emacs/lisp/mail/mail-utils.el       Tue Feb  4 08:14:00 2003
***************
*** 32,38 ****
  ;;; We require lisp-mode to make sure that lisp-mode-syntax-table has
  ;;; been initialized.
  (require 'lisp-mode)
!                    
  ;;;###autoload
  (defcustom mail-use-rfc822 nil "\
  *If non-nil, use a full, hairy RFC822 parser on mail addresses.
--- 32,38 ----
  ;;; We require lisp-mode to make sure that lisp-mode-syntax-table has
  ;;; been initialized.
  (require 'lisp-mode)
! 
  ;;;###autoload
  (defcustom mail-use-rfc822 nil "\
  *If non-nil, use a full, hairy RFC822 parser on mail addresses.
***************
*** 166,172 ****
             (setq address (buffer-string))
             (erase-buffer))
         ;; Strip non-nested comments an easier way.
!        (while (setq pos (string-match 
                            ;; This doesn't hack rfc822 nested comments
                            ;;  `(xyzzy (foo) whinge)' properly.  Big deal.
                            "[ \t]*(\\([^)\\]\\|\\\\.\\|\\\\\n\\)*)"
--- 166,172 ----
             (setq address (buffer-string))
             (erase-buffer))
         ;; Strip non-nested comments an easier way.
!        (while (setq pos (string-match
                            ;; This doesn't hack rfc822 nested comments
                            ;;  `(xyzzy (foo) whinge)' properly.  Big deal.
                            "[ \t]*(\\([^)\\]\\|\\\\.\\|\\\\\n\\)*)"
***************
*** 240,246 ****
               (naked-address (mail-strip-quoted-names address)))
          (if (string-match rmail-dont-reply-to-names naked-address)
              (setq destinations (concat (substring destinations 0 start-pos)
!                                   (and cur-pos (substring destinations 
                                                            (1+ cur-pos))))
                    cur-pos start-pos)
            (setq cur-pos (and cur-pos (1+ cur-pos))
--- 240,246 ----
               (naked-address (mail-strip-quoted-names address)))
          (if (string-match rmail-dont-reply-to-names naked-address)
              (setq destinations (concat (substring destinations 0 start-pos)
!                                   (and cur-pos (substring destinations
                                                            (1+ cur-pos))))
                    cur-pos start-pos)
            (setq cur-pos (and cur-pos (1+ cur-pos))