[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/rmailsum.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/rmailsum.el |
Date: |
Tue, 08 Apr 2003 21:31:31 -0400 |
Index: emacs/lisp/mail/rmailsum.el
diff -c emacs/lisp/mail/rmailsum.el:1.127 emacs/lisp/mail/rmailsum.el:1.128
*** emacs/lisp/mail/rmailsum.el:1.127 Thu Feb 6 17:01:23 2003
--- emacs/lisp/mail/rmailsum.el Tue Apr 8 21:31:31 2003
***************
*** 396,444 ****
(t "??????"))))
" "
(save-excursion
! (if (not (re-search-forward "^From:[ \t]*" nil t))
! " "
! (let* ((from (mail-strip-quoted-names
! (buffer-substring
! (1- (point))
! ;; Get all the lines of the From field
! ;; so that we get a whole comment if there is one,
! ;; so that mail-strip-quoted-names can discard it.
! (let ((opoint (point)))
! (while (progn (forward-line 1)
! (looking-at "[ \t]")))
! ;; Back up over newline, then trailing spaces or
tabs
! (forward-char -1)
! (skip-chars-backward " \t")
! (point)))))
! len mch lo)
! (if (string-match
! (or rmail-user-mail-address-regexp
! (concat "^\\("
! (regexp-quote (user-login-name))
! "\\($\\|@\\)\\|"
! (regexp-quote
! ;; Don't lose if run from init file
! ;; where user-mail-address is not
! ;; set yet.
! (or user-mail-address
! (concat (user-login-name) "@"
! (or mail-host-address
! (system-name)))))
! "\\>\\)"))
! from)
! (save-excursion
! (goto-char (point-min))
! (if (not (re-search-forward "^To:[ \t]*" nil t))
! nil
! (setq from
! (concat "to: "
! (mail-strip-quoted-names
! (buffer-substring
! (point)
! (progn (end-of-line)
! (skip-chars-backward " \t")
! (point)))))))))
(setq len (length from))
(setq mch (string-match "address@hidden" from))
(format "%25s"
--- 396,447 ----
(t "??????"))))
" "
(save-excursion
! (let* ((from (and (re-search-forward "^From:[ \t]*" nil t)
! (mail-strip-quoted-names
! (buffer-substring
! (1- (point))
! ;; Get all the lines of the From field
! ;; so that we get a whole comment if there is
one,
! ;; so that mail-strip-quoted-names can discard
it.
! (let ((opoint (point)))
! (while (progn (forward-line 1)
! (looking-at "[ \t]")))
! ;; Back up over newline, then trailing spaces
or tabs
! (forward-char -1)
! (skip-chars-backward " \t")
! (point))))))
! len mch lo)
! (if (or (null from)
! (string-match
! (or rmail-user-mail-address-regexp
! (concat "^\\("
! (regexp-quote (user-login-name))
! "\\($\\|@\\)\\|"
! (regexp-quote
! ;; Don't lose if run from init file
! ;; where user-mail-address is not
! ;; set yet.
! (or user-mail-address
! (concat (user-login-name) "@"
! (or mail-host-address
! (system-name)))))
! "\\>\\)"))
! from))
! ;; No From field, or it's this user.
! (save-excursion
! (goto-char (point-min))
! (if (not (re-search-forward "^To:[ \t]*" nil t))
! nil
! (setq from
! (concat "to: "
! (mail-strip-quoted-names
! (buffer-substring
! (point)
! (progn (end-of-line)
! (skip-chars-backward " \t")
! (point)))))))))
! (if (null from)
! " "
(setq len (length from))
(setq mch (string-match "address@hidden" from))
(format "%25s"