From 336abea803c0d106f2f918eeffd5dded91f5a05b Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 3 Jul 2000 03:33:03 +0000 Subject: [PATCH] Synch with Gnus v5.8.8. --- ChangeLog | 22 +++++++ Makefile.in | 9 +-- README.T-gnus | 2 +- lisp/ChangeLog | 26 +++++++++ lisp/gnus-ml.el | 162 ++++++++++++++++++++++++++++++++++++++++++++++++++++ lisp/gnus-start.el | 1 + lisp/gnus-sum.el | 4 +- lisp/gnus-vers.el | 6 +- lisp/lpath.el | 6 +- lisp/mm-decode.el | 14 +---- lisp/nnultimate.el | 4 ++ texi/ChangeLog | 6 ++ texi/gnus-ja.texi | 24 +++++++- texi/gnus.texi | 31 ++++++++-- 14 files changed, 283 insertions(+), 34 deletions(-) create mode 100644 lisp/gnus-ml.el diff --git a/ChangeLog b/ChangeLog index cd7dcaf..31a3e6b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,25 @@ +2000-07-03 Katsumi Yamaoka + + * lisp/gnus-vers.el (T-gnus): Update to 6.14.5. + (gnus-revision-number): Clear to 00. + + * README.T-gnus: Update. + + * lisp/{webmail.el,rfc2047.el,qp.el,pop3.el,nnwarchive.el, + nnsoup.el,nnslashdot.el,nnml.el,nnmh.el,nnmbox.el,nnmail.el, + nnimap.el,nnheader.el,nnfolder.el,nndraft.el,nndoc.el,mml.el, + mm-view.el,mm-uu.el,mm-util.el,mm-decode.el,mm-bodies.el, + message.el,mail-source.el,lpath.el,imap.el,gnus.el,gnus-uu.el, + gnus-util.el,gnus-topic.el,gnus-sum.el,gnus-start.el,gnus-srvr.el, + gnus-soup.el,gnus-score.el,gnus-msg.el,gnus-mailcap.el, + gnus-group.el,gnus-ems.el,gnus-demon.el,gnus-cus.el,gnus-art.el, + gnus-agent.el,ChangeLog}: Sync up with Gnus v5.8.7. + + * texi/{message.texi,gnus.texi,gnus-ja.texi,ChangeLog}: Sync up + with Gnus v5.8.7. + + * contrib/rfc2015.el: New file. + 2000-06-27 Katsumi Yamaoka * lisp/gnus-vers.el (gnus-revision-number): Increment to 04. diff --git a/Makefile.in b/Makefile.in index 0dbddc4..f7b8123 100644 --- a/Makefile.in +++ b/Makefile.in @@ -60,23 +60,20 @@ clean: rm -f MANIFEST.* for i in lisp texi; do (cd $$i; $(MAKE) clean); done -xsome: - cd lisp && $(MAKE) EMACS="$(XEMACS)" some - elclean: cd lisp && rm -f *.elc auto-autoloads.el custom-load.el x: $(MAKE) EMACS="$(XEMACS)" +xsome: + $(MAKE) EMACS="$(XEMACS)" some + distclean: clean rm -rf *~ for i in lisp texi; do (cd $$i; $(MAKE) distclean); done rm -f config.log config.status config.cache Makefile -osome: - $(MAKE) EMACS="$(XEMACS)" some - config.status: $(srcdir)/configure $(SHELL) ./config.status --recheck $(srcdir)/configure: $(srcdir)/configure.in diff --git a/README.T-gnus b/README.T-gnus index d3f17c9..d7a41fb 100644 --- a/README.T-gnus +++ b/README.T-gnus @@ -33,6 +33,6 @@ NEWS: * T-gnus 6.14 - this is based on Pterodactyl Gnus. - The latest T-gnus is T-gnus 6.14.4 (Based on Gnus 5.8.6). It requires + The latest T-gnus is T-gnus 6.14.5 (Based on Gnus 5.8.7). It requires SEMI/WEMI (1.13.5 or later), FLIM (1.13.1 or later), and APEL (10.0 or later). diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d64eee9..2a1dfdf 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,29 @@ +2000-07-03 00:29:08 Julien Gilles + + * gnus-ml.el: New file. + +2000-07-02 16:11:25 Lars Magne Ingebrigtsen + + * nnultimate.el (nnultimate-request-close): New function. + + * gnus-start.el (gnus-clear-system): Clear nnmail-split-history. + +2000-06-18 Norbert Koch + + * Makefile.in: Better support for xemacs builds + +Sun Jul 2 15:11:35 2000 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.8.7 is released. + +2000-05-19 06:32:52 Lars Magne Ingebrigtsen + + * mm-decode.el (mm-insert-part): Characters doubly decoded. + +2000-07-01 10:23:08 Shenghuo ZHU + + * message.el (message-do-fcc): Encode MIME. + 2000-06-28 13:52:57 Shenghuo ZHU * lpath.el: Fbind image-size. diff --git a/lisp/gnus-ml.el b/lisp/gnus-ml.el new file mode 100644 index 0000000..645f218 --- /dev/null +++ b/lisp/gnus-ml.el @@ -0,0 +1,162 @@ +;;; gnus-ml.el --- Mailing list minor mode for gnus + +;; Copyright (C) 2000 by Julien Gilles + +;; Author: Julien Gilles +;; Keywords: news + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; if not, write to the Free Software +;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + +;;; Commentary: + +;; implement (small subset of) RFC 2369 + +;;; Code: + +(require 'gnus) +(eval-when-compile (require 'cl)) + +;;; Mailing list minor mode + +(defvar gnus-mailing-list-mode nil + "Minor mode for providing mailing-list commands.") + +(defvar gnus-mailing-list-mode-map nil) + +(unless gnus-mailing-list-mode-map + (setq gnus-mailing-list-mode-map (make-sparse-keymap)) + + (gnus-define-keys gnus-mailing-list-mode-map + "\C-nh" gnus-mailing-list-help + "\C-ns" gnus-mailing-list-subscribe + "\C-nu" gnus-mailing-list-unsubscribe + "\C-np" gnus-mailing-list-post + "\C-no" gnus-mailing-list-owner + "\C-na" gnus-mailing-list-archive + )) + +(defun gnus-mailing-list-make-menu-bar () + (unless (boundp 'gnus-mailing-list-menu) + (easy-menu-define + gnus-mailing-list-menu gnus-mailing-list-mode-map "" + '("Mailing-Lists" + ["Get help" gnus-mailing-list-help t] + ["Subscribe" gnus-mailing-list-subscribe t] + ["Unsubscribe" gnus-mailing-list-unsubscribe t] + ["Post a message" gnus-mailing-list-post t] + ["Mail to owner" gnus-mailing-list-owner t] + ["Browse archive" gnus-mailing-list-archive t])))) + +(defun turn-on-gnus-mailing-list-mode () + (when (gnus-group-get-parameter group 'to-list) + (gnus-mailing-list-mode 1))) + +(defun gnus-mailing-list-mode (&optional arg) + "Minor mode for providing mailing-list commands. + +\\{gnus-mailing-list-mode-map}" + (interactive "P") + (when (eq major-mode 'gnus-summary-mode) + (when (set (make-local-variable 'gnus-mailing-list-mode) + (if (null arg) (not gnus-mailing-list-mode) + (> (prefix-numeric-value arg) 0))) + ;; Set up the menu. + (when (gnus-visual-p 'mailing-list-menu 'menu) + (gnus-mailing-list-make-menu-bar)) + (gnus-add-minor-mode 'gnus-mailing-list-mode " Mailing-List" gnus-mailing-list-mode-map) + (gnus-run-hooks 'gnus-mailing-list-mode-hook)))) + +;;; Commands + +(defun gnus-mailing-list-help () + "Get help from mailing list server." + (interactive) + (cond (list-help (gnus-mailing-list-message list-help)) + (t (display-message 'no-log "no list-help in this group")))) + +(defun gnus-mailing-list-subscribe () + "Subscribe" + (interactive) + (cond (list-subscribe (gnus-mailing-list-message list-subscribe)) + (t (display-message 'no-log "no list-subscribe in this group")))) + + +(defun gnus-mailing-list-unsubscribe () + "Unsubscribe" + (interactive) + (cond (list-unsubscribe (gnus-mailing-list-message list-unsubscribe)) + (t (display-message 'no-log "no list-unsubscribe in this group")))) + +(defun gnus-mailing-list-post () + "Post message (really useful ?)" + (interactive) + (cond (list-post (gnus-mailing-list-message list-post)) + (t (display-message 'no-log "no list-post in this group"))) + ) + +(defun gnus-mailing-list-owner () + "Mail to the owner" + (interactive) + (cond (list-owner (gnus-mailing-list-message list-owner)) + (t (display-message 'no-log "no list-owner in this group"))) + ) + +(defun gnus-mailing-list-archive () + "Browse archive" + (interactive) + (cond (list-archive (gnus-mailing-list-message list-archive)) + (t (display-message 'no-log "no list-owner in this group"))) + ) + +;;; Utility functions + +(defun gnus-xmas-mailing-list-menu-add () + (gnus-xmas-menu-add mailing-list + gnus-mailing-list-menu)) + +(add-hook 'gnus-mailing-list-mode-hook 'gnus-xmas-mailing-list-menu-add) + +(defun gnus-mailing-list-message (address) + "" + (let ((mailto "") + (to ()) + (subject "None") + (body "") + ) + (cond + ((string-match "]*\\)>" address) + (let ((args (match-string 1 address))) + (cond ; with param + ((string-match "\\(.*\\)\\?\\(.*\\)" args) + (setq mailto (match-string 1 args)) + (let ((param (match-string 2 args))) + (if (string-match "subject=\\([^&]*\\)" param) + (setq subject (match-string 1 param))) + (if (string-match "body=\\([^&]*\\)" param) + (setq body (match-string 1 param))) + (if (string-match "to=\\([^&]*\\)" param) + (push (match-string 1 param) to)) + )) + (t (setq mailto args))))) ; without param + + ; other case + + * gnus.texi (Splitting Mail): Mention gnus-summary-respool-trace. + (Searching for Articles): Fix. + (Newest Features): Fix. + 2000-06-28 Simon Josefsson * gnus.texi (Splitting in IMAP): Update. diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index 2de4fb3..261c7f7 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -5242,6 +5242,9 @@ Prefixes})。 @end table +そして、どうやって記事の本文 (body) の内容を基にプロセス印を付けるかは、 +@pxref{Searching for Articles} の @kbd{&} 命令を参照して下さい。 + @node Limiting @section 制限をする @@ -8293,7 +8296,11 @@ Gnus の info の節 (node) に移動します (@code{gnus-info-find-no @findex gnus-summary-execute-command この命令はあなたにヘッダー部分とその部分に合致する正規表現、合致した場合 に実行される命令の入力を促進します (@code{gnus-summary-execute-command})。 -もし接頭引数を与えられれば、代わりに後ろ向きに探します。 +もしヘッダーが空文字列ならば、記事全体を探します。もし接頭引数を与えられ +れば、代わりに後ろ向きに探します。 + +例えば @kbd{& RET 文字列 #} は、ヘッダーか本文に @samp{文字列} を持つす +べての記事にプロセス印を付けます。 @item M-& @kindex M-& （概略） @@ -10502,7 +10509,9 @@ Backend} と @pxref{Expiring Mail} を。 @kindex M-x nnmail-split-history @kindex nnmail-split-history 前のメール分割がメッセージをどこに入れたかを見たい場合は、命令 @kbd{M-x -nnmail-split-history} を使う事ができます。 +nnmail-split-history} を使う事ができます。これからスプールし直そうとする +メッセージがどこに入るかを見たい場合は、@code{gnus-summary-respool-trace} +と関連する命令 (@pxref{Mail Group Commands}) を使う事ができます。 Gnus はあなたに自分自身に跳ね返ってくるような可能性のある全ての機会を提 供します。例えば、あなたの上司からくる全てのメールを含んだグループを作っ @@ -20590,6 +20599,17 @@ to be the child of the message you're commenting. Handle external-body parts. @item +When renaming a group name, nnmail-split-history does not get the group +name renamed. + +@item +Allow mail splitting on bodies when using advanced mail splitting. + +@lisp + (body "whatever.text") +@end lisp + +@item Solve the halting problem. @c TODO diff --git a/texi/gnus.texi b/texi/gnus.texi index 6b7915a..d9cae26 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -5240,6 +5240,9 @@ Push the current process mark set onto the stack @end table +Also see the @kbd{&} command in @pxref{Searching for Articles} for how to +set process marks based on article body contents. + @node Limiting @section Limiting @@ -8621,10 +8624,14 @@ Search through all previous articles for a regexp @item & @kindex & (Summary) @findex gnus-summary-execute-command -This command will prompt you for a header field, a regular expression to -match on this field, and a command to be executed if the match is made -(@code{gnus-summary-execute-command}). If given a prefix, search -backward instead. +This command will prompt you for a header, a regular expression to match +on this field, and a command to be executed if the match is made +(@code{gnus-summary-execute-command}). If the header is an empty +string, the match is done on the entire article. If given a prefix, +search backward instead. + +For instance, @kbd{& RET some.*string #} will put the process mark on +all articles that have heads or bodies that match @samp{some.*string}. @item M-& @kindex M-& (Summary) @@ -10912,7 +10919,10 @@ variable is @code{add-name-to-file} by default.) @kindex M-x nnmail-split-history @kindex nnmail-split-history If you wish to see where the previous mail split put the messages, you -can use the @kbd{M-x nnmail-split-history} command. +can use the @kbd{M-x nnmail-split-history} command. If you wish to see +where re-spooling messages would put the messages, you can use +@code{gnus-summary-respool-trace} and related commands (@pxref{Mail +Group Commands}). Gnus gives you all the opportunity you could possibly want for shooting yourself in the foot. Let's say you create a group that will contain @@ -20896,6 +20906,17 @@ to be the child of the message you're commenting. Handle external-body parts. @item +When renaming a group name, nnmail-split-history does not get the group +name renamed. + +@item +Allow mail splitting on bodies when using advanced mail splitting. + +@lisp + (body "whatever.text") +@end lisp + +@item Solve the halting problem. @c TODO -- 1.7.10.4