# HG changeset patch # User Miles Bader # Date 1131686067 0 # Node ID a93385a3e7a2a4fd14f9e6b8696b152db466d627 # Parent 2fc24a2b40a54795c2356f0bd84912ad435492ec Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-646 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 152-156) - Update from CVS: lisp/mml.el (mml-preview): Doc fix. - Update from CVS 2005-11-09 Katsumi Yamaoka * lisp/gnus/message.el (message-generate-headers): Downcase the argument given to message-check-element. 2005-11-01 Katsumi Yamaoka * lisp/gnus/gnus.el (gnus-parameters-case-fold-search): New variable. (gnus-parameters-get-parameter): Use it. * lisp/gnus/gnus-score.el (gnus-home-score-file): Doc fix. 2005-11-01 Xavier Maillard (tiny change) * lisp/gnus/gnus-score.el (gnus-update-score-entry-dates): Doc fix. 2005-10-31 Katsumi Yamaoka * lisp/gnus/mml.el (mml-preview): Doc fix. 2005-11-10 Katsumi Yamaoka * man/gnus.texi (XVarious): Fix description of gnus-use-toolbar; add new variable gnus-toolbar-thickness. 2005-11-08 Katsumi Yamaoka * man/gnus.texi (XVarious): Revert description of gnus-use-toolbar. 2005-11-07 Katsumi Yamaoka * man/gnus.texi (X-Face): Fix description. (XVarious): Remove gnus-xmas-logo-color-alist and gnus-xmas-logo-color-style; fix description of gnus-use-toolbar. 2005-11-01 Katsumi Yamaoka * man/gnus.texi (Group Parameters): Mention new varable gnus-parameters-case-fold-search. (Home Score File): Addition. diff -r 2fc24a2b40a5 -r a93385a3e7a2 lisp/gnus/ChangeLog --- a/lisp/gnus/ChangeLog Fri Nov 11 04:23:02 2005 +0000 +++ b/lisp/gnus/ChangeLog Fri Nov 11 05:14:27 2005 +0000 @@ -1,3 +1,23 @@ +2005-11-09 Katsumi Yamaoka + + * message.el (message-generate-headers): Downcase the argument + given to message-check-element. + +2005-11-01 Katsumi Yamaoka + + * gnus.el (gnus-parameters-case-fold-search): New variable. + (gnus-parameters-get-parameter): Use it. + + * gnus-score.el (gnus-home-score-file): Doc fix. + +2005-11-01 Xavier Maillard (tiny change) + + * gnus-score.el (gnus-update-score-entry-dates): Doc fix. + +2005-10-31 Katsumi Yamaoka + + * mml.el (mml-preview): Doc fix. + 2005-10-27 Reiner Steib * flow-fill.el (fill-flowed-encode-tests): Restore trailing diff -r 2fc24a2b40a5 -r a93385a3e7a2 lisp/gnus/gnus-score.el --- a/lisp/gnus/gnus-score.el Fri Nov 11 04:23:02 2005 +0000 +++ b/lisp/gnus/gnus-score.el Fri Nov 11 05:14:27 2005 +0000 @@ -142,7 +142,7 @@ number)) (defcustom gnus-update-score-entry-dates t - "*In non-nil, update matching score entry dates. + "*If non-nil, update matching score entry dates. If this variable is nil, then score entries that provide matches will be expired along with non-matching score entries." :group 'gnus-score-expire @@ -175,7 +175,7 @@ It can be: * A string - This file file will be used as the home score file. + This file will be used as the home score file. * A function The result of this function will be used as the home score file. @@ -186,7 +186,7 @@ The elements in this list can be: * `(regexp file-name ...)' - If the `regexp' matches the group name, the first `file-name' will + If the `regexp' matches the group name, the first `file-name' will be used as the home score file. (Multiple filenames are allowed so that one may use gnus-score-file-single-match-alist to set this variable.) diff -r 2fc24a2b40a5 -r a93385a3e7a2 lisp/gnus/gnus.el --- a/lisp/gnus/gnus.el Fri Nov 11 04:23:02 2005 +0000 +++ b/lisp/gnus/gnus.el Fri Nov 11 05:14:27 2005 +0000 @@ -1104,6 +1104,17 @@ :type '(repeat (cons regexp (repeat sexp)))) +(defcustom gnus-parameters-case-fold-search 'default + "If it is t, ignore case of group names specified in `gnus-parameters'. +If it is nil, don't ignore case. If it is `default', which is for the +backward compatibility, use the value of `case-fold-search'." + :version "22.1" + :group 'gnus-group-various + :type '(choice :format "%{%t%}:\n %[Value Menu%] %v" + (const :tag "Use `case-fold-search'" default) + (const nil) + (const t))) + (defvar gnus-group-parameters-more nil) (defmacro gnus-define-group-parameter (param &rest rest) @@ -3722,7 +3733,10 @@ (defun gnus-parameters-get-parameter (group) "Return the group parameters for GROUP from `gnus-parameters'." - (let (params-list) + (let ((case-fold-search (if (eq gnus-parameters-case-fold-search 'default) + case-fold-search + gnus-parameters-case-fold-search)) + params-list) (dolist (elem gnus-parameters) (when (string-match (car elem) group) (setq params-list diff -r 2fc24a2b40a5 -r a93385a3e7a2 lisp/gnus/message.el --- a/lisp/gnus/message.el Fri Nov 11 04:23:02 2005 +0000 +++ b/lisp/gnus/message.el Fri Nov 11 05:14:27 2005 +0000 @@ -5077,7 +5077,8 @@ ;; The element is a symbol. We insert the value ;; of this symbol, if any. (symbol-value header)) - ((not (message-check-element header)) + ((not (message-check-element + (intern (downcase (symbol-name header))))) ;; We couldn't generate a value for this header, ;; so we just ask the user. (read-from-minibuffer diff -r 2fc24a2b40a5 -r a93385a3e7a2 lisp/gnus/mml.el --- a/lisp/gnus/mml.el Fri Nov 11 04:23:02 2005 +0000 +++ b/lisp/gnus/mml.el Fri Nov 11 05:14:27 2005 +0000 @@ -1102,7 +1102,7 @@ (defun mml-preview (&optional raw) "Display current buffer with Gnus, in a new buffer. -If RAW, don't highlight the article." +If RAW, display a raw encoded MIME message." (interactive "P") (save-excursion (let* ((buf (current-buffer)) diff -r 2fc24a2b40a5 -r a93385a3e7a2 man/ChangeLog --- a/man/ChangeLog Fri Nov 11 04:23:02 2005 +0000 +++ b/man/ChangeLog Fri Nov 11 05:14:27 2005 +0000 @@ -1,3 +1,24 @@ +2005-11-10 Katsumi Yamaoka + + * gnus.texi (XVarious): Fix description of gnus-use-toolbar; add + new variable gnus-toolbar-thickness. + +2005-11-08 Katsumi Yamaoka + + * gnus.texi (XVarious): Revert description of gnus-use-toolbar. + +2005-11-07 Katsumi Yamaoka + + * gnus.texi (X-Face): Fix description. + (XVarious): Remove gnus-xmas-logo-color-alist and + gnus-xmas-logo-color-style; fix description of gnus-use-toolbar. + +2005-11-01 Katsumi Yamaoka + + * gnus.texi (Group Parameters): Mention new varable + gnus-parameters-case-fold-search. + (Home Score File): Addition. + 2005-11-09 Luc Teirlinck * killing.texi (CUA Bindings): Add @section. diff -r 2fc24a2b40a5 -r a93385a3e7a2 man/gnus.texi --- a/man/gnus.texi Fri Nov 11 04:23:02 2005 +0000 +++ b/man/gnus.texi Fri Nov 11 05:14:27 2005 +0000 @@ -3060,6 +3060,19 @@ String value of parameters will be subjected to regexp substitution, as the @code{to-group} example shows. +@vindex gnus-parameters-case-fold-search +By default, whether comparing the group name and one of those regexps +specified in @code{gnus-parameters} is done in a case-sensitive manner +or a case-insensitive manner depends on the value of +@code{case-fold-search} at the time when the comparison is done. The +value of @code{case-fold-search} is typically @code{t}; it means, for +example, the element @code{("INBOX\\.FOO" (total-expire . t))} might be +applied to both the @samp{INBOX.FOO} group and the @samp{INBOX.foo} +group. If you want to make those regexps always case-sensitive, set the +value of the @code{gnus-parameters-case-fold-search} variable to +@code{nil}. Otherwise, set it to @code{t} if you want to compare them +always in a case-insensitive manner. + @node Listing Groups @section Listing Groups @@ -19755,7 +19768,8 @@ @item A function. If the function returns non-@code{nil}, the result will -be used as the home score file. +be used as the home score file. The function will be called with the +name of the group as the parameter. @item A string. Use the string as the home score file. @@ -21967,11 +21981,11 @@ If the @code{gnus-article-x-face-too-ugly} (which is a regexp) matches the @code{From} header, the face will not be shown. -The default action under Emacs 20 is to fork off the @code{display} -program@footnote{@code{display} is from the ImageMagick package. For -the @code{uncompface} and @code{icontopbm} programs look for a package -like @code{compface} or @code{faces-xface} on a GNU/Linux system.} to -view the face. +The default action under Emacs without image support is to fork off the +@code{display} program@footnote{@code{display} is from the ImageMagick +package. For the @code{uncompface} and @code{icontopbm} programs look +for a package like @code{compface} or @code{faces-xface} on a GNU/Linux +system.} to view the face. Under XEmacs or Emacs 21+ with suitable image support, the default action is to display the face before the @code{From} header. (It's @@ -22217,18 +22231,6 @@ auto-detect this directory, but you may set it manually if you have an unusual directory structure. -@item gnus-xmas-logo-color-alist -@vindex gnus-xmas-logo-color-alist -This is an alist where the key is a type symbol and the values are the -foreground and background color of the splash page glyph. - -@item gnus-xmas-logo-color-style -@vindex gnus-xmas-logo-color-style -This is the key used to look up the color in the alist described above. -Valid values include @code{flame}, @code{pine}, @code{moss}, -@code{irish}, @code{sky}, @code{tin}, @code{velvet}, @code{grape}, -@code{labia}, @code{berry}, @code{neutral}, and @code{september}. - @item gnus-xmas-modeline-glyph @vindex gnus-xmas-modeline-glyph A glyph displayed in all Gnus mode lines. It is a tiny gnu head by @@ -22242,9 +22244,19 @@ @item gnus-use-toolbar @vindex gnus-use-toolbar -If @code{nil}, don't display toolbars. If non-@code{nil}, it should be -one of @code{default-toolbar}, @code{top-toolbar}, @code{bottom-toolbar}, -@code{right-toolbar}, or @code{left-toolbar}. +This variable specifies the position to display the toolbar. If +@code{nil}, don't display toolbars. If it is non-nil, it should be one +of the symbols @code{default}, @code{top}, @code{bottom}, @code{right}, +and @code{left}. @code{default} means to use the default toolbar, the +rest mean to display the toolbar on the place which those names show. +The default is @code{default}. + +@item gnus-toolbar-thickness +@vindex gnus-toolbar-thickness +Cons of the height and the width specifying the thickness of a toolbar. +The height is used for the toolbar displayed on the top or the bottom, +the width is used for the toolbar displayed on the right or the left. +The default is that of the default toolbar. @item gnus-group-toolbar @vindex gnus-group-toolbar