From 41a23cc6265f354a9b95ccc8b2aaf9c6e98333be Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 27 Jun 2001 22:14:49 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 8 ++++++++ lisp/gnus-sum.el | 4 +++- lisp/nnrss.el | 7 +++++-- texi/ChangeLog | 5 +++++ texi/gnus.texi | 36 ++++++++++++++++++++++++++++++++++++ 5 files changed, 57 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8b5f481..baedd82 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2001-06-26 22:00:00 ShengHuo ZHU + + * nnrss.el (nnrss-retrieve-headers): The description may exist. + Suggested by Christoph Conrad . + + * gnus-sum.el (gnus-summary-set-local-parameters): Don't override + group variables. + 2001-06-25 10:00:00 ShengHuo ZHU * nnslashdot.el (nnslashdot-write-groups): Use gnus-prin1. diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 8467b58..7075670 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -3002,6 +3002,7 @@ the thread are to be displayed." (defun gnus-summary-set-local-parameters (group) "Go through the local params of GROUP and set all variable specs in that list." (let ((params (gnus-group-find-parameter group)) + (vars '(quit-config)) ; Ignore quit-config. elem) (while params (setq elem (car params) @@ -3009,8 +3010,9 @@ the thread are to be displayed." (and (consp elem) ; Has to be a cons. (consp (cdr elem)) ; The cdr has to be a list. (symbolp (car elem)) ; Has to be a symbol in there. - (not (memq (car elem) '(quit-config))) ; Ignore quit-config. + (not (memq (car elem) vars)) (ignore-errors ; So we set it. + (push (car elem) vars) (make-local-variable (car elem)) (set (car elem) (eval (nth 1 elem)))))))) diff --git a/lisp/nnrss.el b/lisp/nnrss.el index ce41298..13d3527 100644 --- a/lisp/nnrss.el +++ b/lisp/nnrss.el @@ -203,10 +203,13 @@ To use the description in headers, put this name into `nnmail-extra-headers'.") "0" "\t" ;; chars "0" "\t" ;; lines "" "\t" ;; Xref - (if (memq nnrss-description-field nnmail-extra-headers) + (if (and (nth 6 e) + (memq nnrss-description-field + nnmail-extra-headers)) (concat (symbol-name nnrss-description-field) ": " - (nnrss-format-string (nth 6 e)) "\t") + (nnrss-format-string (nth 6 e)) + "\t") "") "\n"))))) 'nov) diff --git a/texi/ChangeLog b/texi/ChangeLog index 0d2dda9..ca8c3ae 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,8 @@ +2001-06-27 Simon Josefsson + From Ralph Schleicher + + * gnus.texi (MIME Commands): Add. + 2001-06-24 Kai Gro,A_(Bjohann * gnus.texi (Summary Score Commands): Say that some commands diff --git a/texi/gnus.texi b/texi/gnus.texi index 5202a17..c9bee35 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -8068,6 +8068,42 @@ Here's an example function the does the latter: @item gnus-mime-multipart-functions Alist of @sc{mime} multipart types and functions to handle them. +@vindex mm-file-name-rewrite-functions +@item mm-file-name-rewrite-functions +List of functions used for rewriting file names of @sc{mime} parts. +Each function takes a file name as input and returns a file name. + +Ready-made functions include@* +@code{mm-file-name-delete-whitespace}, +@code{mm-file-name-trim-whitespace}, +@code{mm-file-name-collapse-whitespace}, and +@code{mm-file-name-replace-whitespace}. The later uses the value of +the variable @code{mm-file-name-replace-whitespace} to replace each +whitespace character in a file name with that string; default value +is @code{"_"} (a single underscore). +@findex mm-file-name-delete-whitespace +@findex mm-file-name-trim-whitespace +@findex mm-file-name-collapse-whitespace +@findex mm-file-name-replace-whitespace +@vindex mm-file-name-replace-whitespace + +The standard functions @code{capitalize}, @code{downcase}, +@code{upcase}, and @code{upcase-initials} may be useful, too. + +Everybody knows that whitespace characters in file names are evil, +except those who don't know. If you receive lots of attachments from +such unenlightened users, you can make live easier by adding + +@lisp +(setq mm-file-name-rewrite-functions + '(mm-file-name-trim-whitespace + mm-file-name-collapse-whitespace + mm-file-name-replace-whitespace)) +@end lisp + +@noindent +to your @file{.gnus} file. + @end table -- 1.7.10.4