From 9d8f3f4cbb8c4af115d71d60ca488cff15ca9296 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 10 Sep 1998 03:02:58 +0000 Subject: [PATCH] Importing pgnus-0.24. --- lisp/ChangeLog | 33 +++++++++++++++++++++++++++++++++ lisp/gnus-art.el | 10 +++++----- lisp/gnus-int.el | 12 +++++++----- lisp/gnus-msg.el | 6 +++--- lisp/gnus-sum.el | 1 + lisp/gnus.el | 4 ++-- lisp/message.el | 6 ++---- lisp/parse-time.el | 5 +++++ texi/ChangeLog | 4 ++++ texi/gnus.texi | 9 ++++++--- texi/message.texi | 6 +++--- 11 files changed, 71 insertions(+), 25 deletions(-) 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 373b095..38b315b 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -546,7 +546,7 @@ displayed by the first non-nil matching CONTENT face." (face :value default))))) (defcustom gnus-article-decode-hook - '(gnus-article-decode-charset gnus-article-decode-rfc1522) + '(article-decode-charset article-decode-rfc1522) "*Hook run to decode charsets in articles.") ;;; Internal variables @@ -949,7 +949,7 @@ characters to translate to." (process-send-region "article-x-face" beg end) (process-send-eof "article-x-face")))))))))) -(defun gnus-article-decode-mime-words () +(defun article-decode-mime-words () "Decode all MIME-encoded words in the article." (interactive) (save-excursion @@ -958,12 +958,11 @@ characters to translate to." buffer-read-only) (rfc2047-decode-region (point-min) (point-max))))) -(defun gnus-article-decode-charset (&optional prompt) +(defun article-decode-charset (&optional prompt) "Decode charset-encoded text in the article. If PROMPT (the prefix), prompt for a coding system to use." (interactive "P") (save-excursion - (set-buffer gnus-article-buffer) (save-restriction (message-narrow-to-head) (let* ((inhibit-point-motion-hooks t) @@ -1005,7 +1004,7 @@ or not." (save-excursion (let ((buffer-read-only nil) (type (gnus-fetch-field "content-transfer-encoding"))) - (gnus-article-decode-rfc1522) + ;;(gnus-article-decode-rfc1522) (when (or force (and type (string-match "quoted-printable" (downcase type)))) (goto-char (point-min)) @@ -1844,6 +1843,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 505c284..0c4ff6f 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))) @@ -433,10 +434,11 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned." (goto-char (point-max)) (unless (bolp) (insert "\n")) - (save-restriction - (message-narrow-to-headers) - (rfc2047-encode-message-header)) - (message-encode-message-body) + (unless no-encode + (save-restriction + (message-narrow-to-headers) + (rfc2047-encode-message-header)) + (message-encode-message-body)) (let ((func (car (or gnus-command-method (gnus-find-method-for-group group))))) (funcall (intern (format "%s-request-accept-article" func)) diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 8e91b2d..85fd99b 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -546,6 +546,7 @@ If SILENT, don't prompt the user." (interactive) (concat "Gnus/" (prin1-to-string (gnus-continuum-version gnus-version) t) + " (" gnus-version ")" " " (cond ((string-match "^\\([0-9]+\\.[0-9]+\\)\\.[.0-9]+$" emacs-version) @@ -560,8 +561,7 @@ If SILENT, don't prompt the user." (if (boundp 'xemacs-codename) (concat " (" xemacs-codename ")") ""))) - (t emacs-version)) - " (" gnus-version ")")) + (t emacs-version)))) ;;; @@ -944,7 +944,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 bae4300..929dddb 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -6771,6 +6771,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 5d9af27..3e19cb7 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -250,7 +250,7 @@ is restarted, and sometimes reloaded." :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) -(defconst gnus-version-number "0.23" +(defconst gnus-version-number "0.24" "Version number for this version of Gnus.") (defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number) @@ -1612,7 +1612,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 397210b..8812edb 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. @@ -2621,9 +2622,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) @@ -4053,7 +4051,7 @@ regexp varstr." (goto-char (point-max)) (setq charset (or charset (mm-mule-charset-to-mime-charset 'ascii))) ;; We don't insert MIME headers if they only say the default. - (unless (and (eq charset 'ascii) + (unless (and (eq charset 'us-ascii) (eq encoding '7bit)) (mm-insert-rfc822-headers charset encoding)) (mm-encode-body)))))) 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 f87f6eb..e627fea 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.texi b/texi/gnus.texi index d68f064..0459425 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename gnus -@settitle Pterodactyl Gnus 0.23 Manual +@settitle Pterodactyl Gnus 0.24 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 Pterodactyl Gnus 0.23 Manual +@title Pterodactyl Gnus 0.24 Manual @author by Lars Magne Ingebrigtsen @page @@ -354,7 +354,7 @@ can be gotten by any nefarious means you can think of---@sc{nntp}, local spool or your mbox file. All at the same time, if you want to push your luck. -This manual corresponds to Pterodactyl Gnus 0.23. +This manual corresponds to Pterodactyl Gnus 0.24. @end ifinfo @@ -14274,6 +14274,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 3d26101..3c1f10e 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