From 6a4665059e4bff54c5baf8cb0f92a7c81796be2e Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 10 Sep 1998 05:03:17 +0000 Subject: [PATCH] Sync up with Pterodactyl Gnus 0.24. A snapshot is available from ftp://ftp.jpl.org/pub/tmp/semi-gnus-pgnus-ichikawa-19980910-1.tar.gz --- ChangeLog | 6 ++++++ lisp/ChangeLog | 33 +++++++++++++++++++++++++++++++++ lisp/gnus-art.el | 1 + lisp/gnus-int.el | 3 ++- lisp/gnus-msg.el | 2 +- lisp/gnus-sum.el | 1 + lisp/gnus.el | 6 +++--- lisp/message.el | 4 +--- lisp/parse-time.el | 5 +++++ texi/ChangeLog | 4 ++++ texi/gnus-ja.texi | 24 ++++++++++++------------ texi/gnus.texi | 9 ++++++--- texi/message.texi | 6 +++--- 13 files changed, 78 insertions(+), 26 deletions(-) diff --git a/ChangeLog b/ChangeLog index d603627..ba40bc4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +1998-09-10 Katsumi Yamaoka + + * lisp/gnus.el (gnus-version-number): Update to 6.10.016. + + * Sync up with Pterodactyl Gnus 0.24. + 1998-09-09 Katsumi Yamaoka * lisp/gnus.el (gnus-version-number): Update to 6.10.015. diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 81e28ae..312755f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,36 @@ +Thu Sep 10 04:03:29 1998 Lars Magne Ingebrigtsen + + * gnus.el: Pterodactyl Gnus v0.24 is released. + +1998-09-10 01:58:24 Lars Magne Ingebrigtsen + + * gnus-sum.el (gnus-summary-show-article): Don't decode chars if + PREFIX. + + * parse-time.el (parse-time-rules): Accept times that look like + "h:mm". + + * message.el (message-make-date): Use zone properly. + + * gnus.el: Autoload gnus-batch. + + * gnus-art.el (article-de-quoted-unreadable): Do not do + gnus-article-decode-rfc1522. + + * gnus-msg.el (gnus-inews-do-gcc): Use it. + + * gnus-int.el (gnus-request-accept-article): Accept a no-encode + param. + + * message.el (message-encode-message-body): Check for us-ascii. + + * gnus-msg.el (gnus-extended-version): Move Gnus version comments + to the left. + +1998-09-09 13:18:13 Lars Magne Ingebrigtsen + + * gnus-art.el (article-decode-charset): Rename. + Wed Sep 9 12:25:48 1998 Lars Magne Ingebrigtsen * gnus.el: Pterodactyl Gnus v0.23 is released. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index efe14d1..54af5ba 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -1783,6 +1783,7 @@ If variable `gnus-use-long-file-name' is non-nil, it is article-date-iso8601 article-date-original article-date-ut + article-decode-mime-words article-date-user article-date-lapsed article-emphasize diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el index 8143d0d..21ef876 100644 --- a/lisp/gnus-int.el +++ b/lisp/gnus-int.el @@ -423,7 +423,8 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned." article (gnus-group-real-name group) (nth 1 gnus-command-method) accept-function last))) -(defun gnus-request-accept-article (group &optional gnus-command-method last) +(defun gnus-request-accept-article (group &optional gnus-command-method last + no-encode) ;; Make sure there's a newline at the end of the article. (when (stringp gnus-command-method) (setq gnus-command-method (gnus-server-to-method gnus-command-method))) diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 1346ebe..e9dd5fc 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -968,7 +968,7 @@ this is a reply." (concat "^" (regexp-quote mail-header-separator) "$") nil t) (replace-match "" t t )) - (unless (gnus-request-accept-article group method t) + (unless (gnus-request-accept-article group method t t) (gnus-message 1 "Couldn't store article in group %s: %s" group (gnus-status-message method)) (sit-for 2)) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index bad5ca8..3fe444e 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -6822,6 +6822,7 @@ article massaging functions being run." (let ((gnus-have-all-headers t) gnus-article-display-hook gnus-article-prepare-hook + gnus-article-decode-hook gnus-break-pages gnus-show-mime gnus-visual) diff --git a/lisp/gnus.el b/lisp/gnus.el index b6fd8fe..677024c 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -253,10 +253,10 @@ is restarted, and sometimes reloaded." (defconst gnus-product-name "T-gnus" "Product name of this version of gnus.") -(defconst gnus-version-number "6.10.015" +(defconst gnus-version-number "6.10.016" "Version number for this version of gnus.") -(defconst gnus-original-version-number "0.23" +(defconst gnus-original-version-number "0.24" "Version number for this version of Gnus.") (defconst gnus-original-product-name "Pterodactyl Gnus" @@ -1626,7 +1626,7 @@ gnus-newsrc-hashtb should be kept so that both hold the same information.") gnus-article-hide-citation-in-followups) ("gnus-kill" gnus-kill gnus-apply-kill-file-internal gnus-kill-file-edit-file gnus-kill-file-raise-followups-to-author - gnus-execute gnus-expunge) + gnus-execute gnus-expunge gnus-batch-kill gnus-batch-score) ("gnus-cache" gnus-cache-possibly-enter-article gnus-cache-save-buffers gnus-cache-possibly-remove-articles gnus-cache-request-article gnus-cache-retrieve-headers gnus-cache-possibly-alter-active diff --git a/lisp/message.el b/lisp/message.el index be70d14..48d0ce2 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1,3 +1,4 @@ + ;;; message.el --- composing mail and news messages ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. @@ -2838,9 +2839,6 @@ If NOW, use that time instead." (zone (nth 8 (decode-time now))) (sign "+")) ;; We do all of this because XEmacs doesn't have the %z spec. - (when (> (/ zone 3600) 12) - (setq sign "-" - zone (- zone (* 3600 12)))) (concat (format-time-string "%d %b %Y %H:%M:%S " (or now (current-time))) (format "%s%02d%02d" sign (/ zone 3600) diff --git a/lisp/parse-time.el b/lisp/parse-time.el index 2871623..d9514f6 100644 --- a/lisp/parse-time.el +++ b/lisp/parse-time.el @@ -157,6 +157,11 @@ ((2 1 0) ,#'(lambda () (and (stringp elt) (= (length elt) 5) (= (aref elt 2) ?:))) [0 2] [3 5] ,#'(lambda () 0)) + ((2 1 0) + ,#'(lambda () (and (stringp elt) + (= (length elt) 4) + (= (aref elt 1) ?:))) + [0 1] [2 4] ,#'(lambda () 0)) ((5) (70 99) ,#'(lambda () (+ 1900 elt)))) "(slots predicate extractor...)") diff --git a/texi/ChangeLog b/texi/ChangeLog index ef1680a..30a8b29 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,7 @@ +1998-09-10 03:19:14 Lars Magne Ingebrigtsen + + * gnus.texi (Windows Configuration): Addition. + 1998-09-06 Mike McEwan * gnus.texi (Category Syntax): Added doc about agent categories diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index a18ea20..be48633 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename gnus-ja -@settitle Semi-gnus 6.10.015 Manual +@settitle Semi-gnus 6.10.016 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -345,7 +345,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Semi-gnus 6.10.015 Manual +@title Semi-gnus 6.10.016 Manual @author by Lars Magne Ingebrigtsen @author by members of Semi-gnus mailing-list @@ -399,7 +399,7 @@ Semi-gnus は、大きな絵が入っていたりさまざまな形式を用いたりしているちょっ な言語圏を差別しません。ああ、クリンゴンの方は Unicode Next Generationを お待ちください。 -この説明書は Semi-gnus 6.10.015 に対応します。 +この説明書は Semi-gnus 6.10.016 に対応します。 @end ifinfo @@ -6067,12 +6067,12 @@ gnus が提案をします）を入力するように促され、それから命令が実行されます。 @vindex gnus-header-face-alist ヘッダーをハイライトします (@code{gnus-article-highlight-headers})。ハイ ライトは変数 @code{gnus-header-face-alist} にしたがってなされ、それはそ -れぞれの要素が @var{(正規表現 名前 内容)} という様式のリストです。 @var -{正規表現}はヘッダーに合致する正規表現、@var{名前}はヘッダーの名前をハイ -ライトするのに使われるフェイス (face) (@pxref{Faces and Fonts})、@var{内 -容}はヘッダーの値をハイライトするフェイスです。最初に合致したものが使わ -れます。@var{正規表現}は @samp{^} が付けられるべきではない事に注意してく -ださい――gnus がそれを付け加えます。 +れぞれの要素が @var{(正規表現 名前 内容)} という様式のリストです。 +@var{正規表現}はヘッダーに合致する正規表現、@var{名前}はヘッダーの名前を +ハイライトするのに使われるフェイス (face) (@pxref{Faces and Fonts})、 +@var{内容}はヘッダーの値をハイライトするフェイスです。最初に合致したもの +が使われます。@var{正規表現}は @samp{^} が付けられるべきではない事に注意 +してください――gnus がそれを付け加えます。 @item W H c @kindex W H c （概略） @@ -9268,9 +9268,9 @@ Backend} と @pxref{Expiring Mail} を。 @lisp (setq nnmail-split-methods -'(("mail.junk" "^From:.*Lars Ingebrigtsen") - ("mail.crazy" "^Subject:.*die\\|^Organization:.*flabby") - ("mail.other" ""))) + '(("mail.junk" "^From:.*Lars Ingebrigtsen") + ("mail.crazy" "^Subject:.*die\\|^Organization:.*flabby") + ("mail.other" ""))) @end lisp この変数はリストのリストで、これらのリストの最初のそれぞれの要素がメール diff --git a/texi/gnus.texi b/texi/gnus.texi index d1f8961..ab23e52 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename gnus -@settitle Semi-gnus 6.10.015 Manual +@settitle Semi-gnus 6.10.016 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -318,7 +318,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Semi-gnus 6.10.015 Manual +@title Semi-gnus 6.10.016 Manual @author by Lars Magne Ingebrigtsen @page @@ -361,7 +361,7 @@ internationalization/localization and multiscript features based on MULE API. So Semi-gnus does not discriminate various language communities. Oh, if you are a Klingon, please wait Unicode Next Generation. -This manual corresponds to Semi-gnus 6.10.015. +This manual corresponds to Semi-gnus 6.10.016. @end ifinfo @@ -14278,6 +14278,9 @@ If @code{gnus-use-full-window} non-@code{nil}, Gnus will delete all other windows and occupy the entire Emacs screen by itself. It is @code{t} by default. +Setting this variable to @code{nil} kinda works, but there are +glitches. Use at your own peril. + @vindex gnus-buffer-configuration @code{gnus-buffer-configuration} describes how much space each Gnus buffer should be given. Here's an excerpt of this variable: diff --git a/texi/message.texi b/texi/message.texi index 1b756ca..1ff0844 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename message -@settitle Pterodactyl Message 0.23 Manual +@settitle Pterodactyl Message 0.24 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -42,7 +42,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Pterodactyl Message 0.23 Manual +@title Pterodactyl Message 0.24 Manual @author by Lars Magne Ingebrigtsen @page @@ -83,7 +83,7 @@ Message mode buffers. * Key Index:: List of Message mode keys. @end menu -This manual corresponds to Pterodactyl Message 0.23. Message is +This manual corresponds to Pterodactyl Message 0.24. Message is distributed with the Gnus distribution bearing the same version number as this manual. -- 1.7.10.4