From 792ab41c9f6719015e55b9e2e4b5dafe7431a68a Mon Sep 17 00:00:00 2001 From: shuhei-k Date: Mon, 8 Dec 1997 11:44:52 +0000 Subject: [PATCH] Synch'ed up to qgnus-0.18. --- lisp/ChangeLog | 92 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ lisp/gnus-art.el | 6 ++-- lisp/gnus-sum.el | 48 +++++++++++++++------------- lisp/gnus.el | 8 +++-- lisp/message.el | 1 - lisp/pop3.el | 6 +++- 6 files changed, 131 insertions(+), 30 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4b73dbb..4b373ee 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,29 @@ +Sat Dec 6 17:40:33 1997 Lars Magne Ingebrigtsen + + * gnus.el: Quassia Gnus v0.18 is released. + +Sat Dec 6 17:27:04 1997 Kim-Minh Kaplan + + * gnus-picon.el (gnus-picons-remove): Race condition. + +Sat Dec 6 17:23:26 1997 Christian von Roques + + * gnus-start.el (gnus-read-descriptions-file): Fix + enable-multibyte-characters. + +1997-12-05 Dave Love + + * gnus-nocem.el (gnus-nocem-message-wanted-p): Fix paren typpo. + (gnus-nocem-issuers): Allow sexp alternative in :type for alists. + +1997-12-05 Dave Love + + * gnus-art.el (gnus-visible-headers): Add X-sent:. + +Sat Dec 6 17:16:28 1997 Lars Balker Rasmussen + + * gnus-art.el (article-make-date-line): Don't add extra newlines. + 1997-11-29 MORIOKA Tomohiko * gnus.el (gnus-version): Rename to "Semi-gnus". @@ -7,6 +33,72 @@ * gnus-draft.el (gnus-draft-decoding-function): New variable. (gnus-draft-setup): Use `gnus-draft-decoding-function'. +1997-11-27 MORIOKA Tomohiko + + * nnmail.el (nnmail-file-coding-system): Use `raw-text' in + default. + + * nnheader.el (nnheader-file-coding-system): Use `raw-text' in + default. + +Sat Dec 6 17:04:40 1997 Kim-Minh Kaplan + + * nnml.el (nnml-parse-head): Out-of-bounds fix. + + * nndraft.el (nndraft-request-associate-buffer): Get proper file + name. + +Sat Dec 6 15:35:37 1997 Gary D. Foster + + * gnus-group.el: Added backspace. + +Thu Nov 27 19:56:59 1997 Lars Magne Ingebrigtsen + + * gnus-agent.el (gnus-summary-set-agent-mark): Remove marks + properly. + +1997-11-27 Christoph Wedler + + * smiley.el (smiley-buffer): Provide `help-echo'. + +Thu Nov 27 17:33:45 1997 Lars Magne Ingebrigtsen + + * gnus-util.el (gnus-output-to-rmail): Always save buffer. + + * nntp.el (nntp-close-server): Don't sleep for me, Argentina. + (nntp-request-close): You neither. + +1997-11-19 Per Abrahamsen + + * message.el (message-header-lines): New widget. + (message-default-headers): Use it. + (message-default-mail-headers): Use it. + (message-default-news-headers): Use it. + +1997-11-24 Andreas Jaeger + + * gnus-start.el (gnus-read-descriptions-file): Add missing quote. + +Wed Nov 26 18:19:29 1997 Lars Magne Ingebrigtsen + + * nnweb.el (nnweb-type-definition): Rescued dejanewsold. + + * gnus-mh.el (gnus-summary-save-in-folder): Reverted to old + version. + + * gnus-sum.el (gnus-kill-or-deaden-summary): Save excursion. + + * gnus.el: Only require gnus-load in Emacsen 19. + + * gnus-start.el (gnus-setup-news): Always push archive server. + + * gnus-sum.el (gnus-read-header): Would bug out on sparse + articles. + +Wed Nov 26 17:50:41 1997 Kurt Swanson + + * gnus-ems.el (gnus-mule-cite-add-face): Work. + Wed Nov 26 17:40:57 1997 Lars Magne Ingebrigtsen * gnus.el: Quassia Gnus v0.17 is released. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 3d35c65..546b8b5 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -107,7 +107,7 @@ If `gnus-visible-headers' is non-nil, this variable will be ignored." :group 'gnus-article-hiding) (defcustom gnus-visible-headers - "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From" + "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:\\|X-Sent:" "All headers that do not match this regexp will be hidden. This variable can also be a list of regexp of headers to remain visible. If this variable is non-nil, `gnus-ignored-headers' will be ignored." @@ -1371,9 +1371,9 @@ how much time has lapsed since DATE." num prev) (cond ((null real-time) - "X-Sent: Unknown\n") + "X-Sent: Unknown") ((zerop sec) - "X-Sent: Now\n") + "X-Sent: Now") (t (concat "X-Sent: " diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 3ef4e09..351e006 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -1130,6 +1130,7 @@ increase the score of each group you read." " " gnus-summary-next-page "\177" gnus-summary-prev-page [delete] gnus-summary-prev-page + [backspace] gnus-summary-prev-page "\r" gnus-summary-scroll-up "\e\r" gnus-summary-scroll-down "n" gnus-summary-next-unread-article @@ -5258,25 +5259,26 @@ which existed when entering the ephemeral is reset." (defun gnus-kill-or-deaden-summary (buffer) "Kill or deaden the summary BUFFER." - (when (and (buffer-name buffer) - (not gnus-single-article-buffer)) - (save-excursion - (set-buffer buffer) - (gnus-kill-buffer gnus-article-buffer) - (gnus-kill-buffer gnus-original-article-buffer))) - (cond (gnus-kill-summary-on-exit - (when (and gnus-use-trees - (and (get-buffer buffer) - (buffer-name (get-buffer buffer)))) + (save-excursion + (when (and (buffer-name buffer) + (not gnus-single-article-buffer)) + (save-excursion + (set-buffer buffer) + (gnus-kill-buffer gnus-article-buffer) + (gnus-kill-buffer gnus-original-article-buffer))) + (cond (gnus-kill-summary-on-exit + (when (and gnus-use-trees + (and (get-buffer buffer) + (buffer-name (get-buffer buffer)))) + (save-excursion + (set-buffer (get-buffer buffer)) + (gnus-tree-close gnus-newsgroup-name))) + (gnus-kill-buffer buffer)) + ((and (get-buffer buffer) + (buffer-name (get-buffer buffer))) (save-excursion - (set-buffer (get-buffer buffer)) - (gnus-tree-close gnus-newsgroup-name))) - (gnus-kill-buffer buffer)) - ((and (get-buffer buffer) - (buffer-name (get-buffer buffer))) - (save-excursion - (set-buffer buffer) - (gnus-deaden-summary))))) + (set-buffer buffer) + (gnus-deaden-summary)))))) (defun gnus-summary-wake-up-the-dead (&rest args) "Wake up the dead summary buffer." @@ -8717,10 +8719,12 @@ save those articles instead." ;; previous entry in the thread hashtb. (when (and header (gnus-summary-article-sparse-p (mail-header-number header))) - (let ((thread (gnus-gethash - (gnus-parent-id (mail-header-references header)) - gnus-newsgroup-dependencies))) - (delq (assq header thread) thread))) + (let* ((parent (gnus-parent-id (mail-header-references header))) + (thread + (and parent + (gnus-gethash parent gnus-newsgroup-dependencies)))) + (when thread + (delq (assq header thread) thread)))) ;; We have to really fetch the header to this article. (save-excursion (set-buffer nntp-server-buffer) diff --git a/lisp/gnus.el b/lisp/gnus.el index 77c97d8..c52bdb1 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -31,7 +31,9 @@ (eval-when-compile (require 'cl)) (require 'custom) -(require 'gnus-load) +(eval-and-compile + (if (< emacs-major-version 20) + (require 'gnus-load))) (require 'message) (defgroup gnus nil @@ -248,7 +250,7 @@ is restarted, and sometimes reloaded." "Version number for this version of gnus.") (defconst gnus-version - (format "Semi-gnus %s (based on Quassia Gnus v0.17)" gnus-version-number) + (format "Semi-gnus %s (based on Quassia Gnus v0.18)" gnus-version-number) "Version string for this version of gnus.") (defcustom gnus-inhibit-startup-message nil @@ -1746,7 +1748,7 @@ This restriction may disappear in later versions of Gnus." (defun gnus-suppress-keymap (keymap) (suppress-keymap keymap) - (let ((keys `([delete] "\177" "\M-u"))) ;gnus-mouse-2 + (let ((keys `([backspace] [delete] "\177" "\M-u"))) ;gnus-mouse-2 (while keys (define-key keymap (pop keys) 'undefined)))) diff --git a/lisp/message.el b/lisp/message.el index 2aaf2cf..55e3d8e 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -548,7 +548,6 @@ If stringp, use this; if non-nil, use no host name (user name only)." (define-widget 'message-header-lines 'text "All header lines must be LFD terminated." :valid-regexp "^\\'" - :format "%t:\n%v" :error "All header lines must be newline terminated") (defcustom message-default-headers "" diff --git a/lisp/pop3.el b/lisp/pop3.el index 276fbfc..8faa223 100644 --- a/lisp/pop3.el +++ b/lisp/pop3.el @@ -60,6 +60,9 @@ values are 'apop.") "Timestamp returned when initially connected to the POP server. Used for APOP authentication.") +(defvar pop3-movemail-file-coding-system nil + "Crashbox made by pop3-movemail with this coding system.") + (defvar pop3-read-point nil) (defvar pop3-debug nil) @@ -91,7 +94,8 @@ Used for APOP authentication.") (pop3-retr process n crashbuf) (save-excursion (set-buffer crashbuf) - (append-to-file (point-min) (point-max) crashbox) + (let ((coding-system-for-write pop3-movemail-file-coding-system)) + (append-to-file (point-min) (point-max) crashbox)) (set-buffer (process-buffer process)) (while (> (buffer-size) 5000) (goto-char (point-min)) -- 1.7.10.4