From: yamaoka Date: Wed, 18 Jun 2003 00:46:05 +0000 (+0000) Subject: Synch to Gnus 200306172234. X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ce346a7af97125947a5b2b0ebec0e53c6b335ad4;p=elisp%2Fgnus.git- Synch to Gnus 200306172234. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7ea1bdb..0c99ea3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,23 @@ +2003-06-17 Dave Love + + * nnimap.el: Require cl when compiling. + + * message.el (message-fix-before-sending): Reinstate nullifying + the invisible text property. + (sender, from): Defvar when compiling. + (message-is-yours-p): Remove autoload cookie. + +2003-06-17 Reiner Steib + + * gnus-util.el (gnus-extract-address-components): Added + doc-string. + +2003-06-16 Kai Gro,A_(Bjohann + + * nnml.el (nnml-current-group-article-to-file-alist): Don't read + overview when using compressed files. From Michael Albinus + . + 2003-06-16 Katsumi Yamaoka * gnus-sum.el (gnus-summary-refer-parent-article): Extract @@ -44,7 +64,8 @@ is requested but the message is not spam 2003-06-09 Teodor Zlatanov - From Eric Knauel + From Eric + * spam.el (spam-use-spamoracle): new variable (spam-install-hooks): add spamoracle to the list of conditions diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index 8c3f2c0..db33e14 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -196,6 +196,11 @@ (cons 'progn (cddr fval))))) (defun gnus-extract-address-components (from) + "Extract address components from a From header. +Given an RFC-822 address FROM, extract full name and canonical address. +Returns a list of the form (FULL-NAME CANONICAL-ADDRESS). Much more simple +solution than `mail-extract-address-components', which works much better, but +is slower." (let (name address) ;; First find the address - the thing with the @ in it. This may ;; not be accurate in mail addresses, but does the trick most of diff --git a/lisp/message.el b/lisp/message.el index 2ebdcf8..7e96a03 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3787,8 +3787,10 @@ used to distinguish whether the invisible text is a MIME part or not." (dolist (point points) (add-text-properties point (1+ point) '(invisible nil intangible nil))))) - ;; Make invisible text visible except for the mime parts which may - ;; be inserted by the MIME-Edit. + ;; Make invisible text visible except for mime parts which may be + ;; inserted by the MIME-Edit. + ;; It doesn't seem as if this is useful, since the invisible property + ;; is clobbered by an after-change hook anyhow. (message-check 'invisible-text ;; FIXME T-gnus: It should also detect invisible overlays. (let (from @@ -6450,7 +6452,11 @@ that further discussion should take place only in " ,@(and distribution (list (cons 'Distribution distribution)))) cur))) -;;;###autoload +(eval-when-compile + ;; Must be dynamically bound for message-is-yours-p. + (defvar sender) + (defvar from)) + (defun message-is-yours-p () "Non-nil means current article is yours. If you have added 'cancel-messages to 'message-shoot-gnksa-feet', all articles diff --git a/lisp/nnimap.el b/lisp/nnimap.el index ae0774f..4c06847 100644 --- a/lisp/nnimap.el +++ b/lisp/nnimap.el @@ -72,6 +72,8 @@ (require 'gnus-start) (require 'gnus-int) +(eval-when-compile (require 'cl)) + (nnoo-declare nnimap) (defconst nnimap-version "nnimap 1.0") diff --git a/lisp/nnml.el b/lisp/nnml.el index de2daa5..16d29b6 100644 --- a/lisp/nnml.el +++ b/lisp/nnml.el @@ -893,7 +893,8 @@ Use the nov database for that directory if available." (defun nnml-current-group-article-to-file-alist () "Return an alist of article/file pairs in the current group. Use the nov database for the current group if available." - (if (or gnus-nov-is-evil + (if (or nnml-use-compressed-files + gnus-nov-is-evil nnml-nov-is-evil (not (file-exists-p (expand-file-name nnml-nov-file-name diff --git a/texi/ChangeLog b/texi/ChangeLog index cbf88b6..8910610 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,9 @@ +2003-06-17 Kai Gro,A_(Bjohann + + * gnus.texi (Splitting Mail): Add "splitting" entry and concept + index entries. Small patch from Karl Pfl,Ad(Bsterer + . + 2003-06-15 Reiner Steib * gnus.texi (Daemons): Fixed typo. diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index eccf61d..9107037 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -12288,6 +12288,7 @@ Gnus $B$r;H$C$F?7$7$$%a!<%k$rFI$`;v$OHs>o$K4JC1$G$9!#$"$J$?$N%a!<%k%P%C%/(B @subsection $B%a!<%k$NJ,3d(B @cindex splitting mail @cindex mail splitting +@cindex mail filtering (splitting) @vindex nnmail-split-methods $BJQ?t(B @code{nnmail-split-methods} $B$OF~$C$F$/$k%a!<%k$r$I$N$h$&$K%0%k!<%W(B @@ -25084,6 +25085,13 @@ Gnus $B$,%0%k!<%W$KF~$k$H!"%0%k!<%W$NA4$F$NL$FI5-;v$N%X%C%@!<$r%P%C%/%(%s(B @cindex digest $BJ#?t$N%a%C%;!<%8$r0l$D$N%U%!%$%k$K=8$a$?$b$N$G$9!#$b$C$H$bIaDL$N=8G[MM<0(B $B$O(B RFC1153 $B$G;XDj$5$l$F$$$^$9!#(B + +@item $BJ,3d(B (splitting) +@cindex splitting, terminolgy +@cindex mail sorting +@cindex mail filtering (splitting) +$B$"$k5,B'$K$h$C$F%a!<%k$rJ,N`$9$k9T0Y$G$9!#$H$-$I$-4V0c$C$F%a!<%k$N_I(B +$B2a(B (mail filtering) $B$H8F$P$l$^$9!#(B @end table @page diff --git a/texi/gnus.texi b/texi/gnus.texi index fdbfee6..efa9ad3 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -13025,6 +13025,7 @@ Especially @pxref{Choosing a Mail Back End} and @pxref{Expiring Mail}. @subsection Splitting Mail @cindex splitting mail @cindex mail splitting +@cindex mail filtering (splitting) @vindex nnmail-split-methods The @code{nnmail-split-methods} variable says how the incoming mail is @@ -25727,6 +25728,13 @@ An article that responds to a different article---its parent. A collection of messages in one file. The most common digest format is specified by RFC 1153. +@item splitting +@cindex splitting, terminolgy +@cindex mail sorting +@cindex mail filtering (splitting) +The action of sorting your emails according to certain rules. Sometimes +incorrectly called mail filtering. + @end table