Changeset 4161 for trunk/lisp/gnus/gnus-sum.el

Timestamp:

09/09/06 16:30:10 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/gnus/gnus-sum.el (modified) (6 diffs)

trunk/lisp/gnus/gnus-sum.el

@@ -993 +993 @@
-
-(defvar gnus-decode-encoded-word-function 'mail-decode-encoded-word-string
-
+
+
+
+
+
-
-(defcustom gnus-extra-headers '(To Newsgroups)
@@ -1002 +1006 @@
-
-(defcustom gnus-ignored-from-addresses
-  
+
-       (not (string= user-mail-address ""))
-       (regexp-quote user-mail-address))
@@ -3437 +3441 @@
-                      (inline
-                        (gnus-summary-extract-address-component
-word
+address
-             ((setq newsgroups (cdr (assq 'Newsgroups extra-headers)))
-              (concat "=> " newsgroups)))))
@@ -4183 +4187 @@
-                 (condition-case ()     ; from
-                     (gnus-remove-odd-characters
-word
+address
-                               (setq x (nnheader-nov-field))))
-                   (error x))
@@ -5957 +5961 @@
-              (goto-char p)
-              (if (search-forward "\nfrom:" nil t)
-word
+address
-                           (nnheader-header-value))
-                "(nobody)"))
@@ -8450 +8454 @@
-        (when (setq to-address (or (gnus-fetch-field "reply-to")
-                                   (gnus-fetch-field "from")))
-
-
-
-
+
+
+
+
+
-        (setq dig (nnheader-set-temp-buffer " *gnus digest buffer*"))
-        (insert-buffer-substring gnus-original-article-buffer)