From: shuhei-k Date: Tue, 6 Jan 1998 20:53:09 +0000 (+0000) Subject: Importing qgnus-0.20 X-Git-Tag: qgnus-0_20 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=097cf341cfee92e9d5d30de9bdbc14a50ddfe414;p=elisp%2Fgnus.git- Importing qgnus-0.20 --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3870a28..36eb57f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,69 @@ +Sun Jan 4 14:28:35 1998 Lars Magne Ingebrigtsen + + * gnus.el: Quassia Gnus v0.20 is released. + +1997-12-10 Per Abrahamsen + + * gnus/gnus-msg.el (gnus-inews-insert-mime-headers): Added + documentation. + (gnus-inews-insert-mime-headers): Made it work with Emacs MULE. + (gnus-inews-insert-mime-headers): Added as option to + `message-header-hook'. + +1997-12-22 Per Abrahamsen + + * gnus/gnus-art.el (gnus-button-alist): Assume msg-id after "in + message". + +1997-12-22 Simon Josefsson + + * nnmail.el (nnmail-get-new-mail): Make nnmail-tmp-directory + +1997-12-28 Per Abrahamsen + + * gnus/gnus-group.el (gnus-group-fetch-faq): Convert `.' in group + name to `/'. + +Sun Jan 4 13:35:14 1998 Lars Magne Ingebrigtsen + + * nndraft.el (nndraft-request-associate-buffer): Open the damn + server first. Sheesh. + + * gnus-draft.el (gnus-draft-send): Bind message-send-hook to nil. + + * gnus-sum.el (gnus-summary-catchup): Don't nix out downloadable. + (gnus-summary-highlight): Highlight down/un as unread. + +Sun Jan 4 13:27:31 1998 Kim-Minh Kaplan + + * gnus-start.el (gnus-strip-killed-list): Fix syntax. + +Sun Jan 4 13:18:04 1998 Lars Magne Ingebrigtsen + + * nnsoup.el (nnsoup-store-reply): Bind mail-header-separator to + "". + + * gnus-xmas.el (gnus-xmas-agent-server-menu-add): New. + + * nnoo.el (nnoo-change-server): Get the right values. + +1998-01-04 Aki Vehtari + + * gnus-art.el (gnus-signature-limit): Add default values for + choices suggested by Per Abrahamsen . + (gnus-prompt-before-saving): Add :value t for sexp tag. + (gnus-split-methods): Add default values for choices. + + * gnus-score.el (gnus-home-score-file): Add non-nil default for + function. + (gnus-home-adapt-file): Ditto. + + * gnus-sum.el (gnus-move-split-methods): Add default values for + choices. + + * nnmail.el (nnmail-list-identifiers): Add default values for + choices suggested by Per Abrahamsen . + Sun Jan 4 11:31:42 1998 Lars Magne Ingebrigtsen * gnus.el: Quassia Gnus v0.19 is released. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index b0a2c23..f1b4b6d 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -155,7 +155,10 @@ longer (in lines) than that number. If it is a function, the function will be called without any parameters, and if it returns nil, there is no signature in the buffer. If it is a string, it will be used as a regexp. If it matches, the text in question is not a signature." - :type '(choice integer number function regexp) + :type '(choice (integer :value 200) + (number :value 4.0) + (function :value fun) + (regexp :value ".*")) :group 'gnus-article-signature) (defcustom gnus-hidden-properties '(invisible t intangible t) @@ -270,7 +273,7 @@ each invocation of the saving commands." :group 'gnus-article-saving :type '(choice (item always) (item :tag "never" nil) - (sexp :tag "once" :format "%t"))) + (sexp :tag "once" :format "%t\n" :value t))) (defcustom gnus-saved-headers gnus-visible-headers "Headers to keep if `gnus-save-all-headers' is nil. @@ -349,9 +352,9 @@ If this form or function returns a string, this string will be used as a possible file name; and if it returns a non-nil list, that list will be used as possible file names." :group 'gnus-article-saving - :type '(repeat (choice (list function) - (cons regexp (repeat string)) - sexp))) + :type '(repeat (choice (list :value (fun) function) + (cons :value ("" "") regexp (repeat string)) + (sexp :value nil)))) (defcustom gnus-strict-mime t "*If nil, MIME-decode even if there is no Mime-Version header." @@ -2667,7 +2670,7 @@ groups." ("\\(\\b<\\(url: ?\\)?news:\\(//\\)?\\([^>\n\t ]*\\)>\\)" 1 t gnus-button-fetch-group 4) ("\\bnews:\\(//\\)?\\([^'\">\n\t ]+\\)" 0 t gnus-button-fetch-group 2) - ("\\bin\\( +article\\)? +\\(<\\([^\n @<>]+@[^\n @<>]+\\)>\\)" 2 + ("\\bin\\( +article\\| +message\\)? +\\(<\\([^\n @<>]+@[^\n @<>]+\\)>\\)" 2 t gnus-button-message-id 3) ("\\( \n\t]+\\)>" 0 t gnus-url-mailto 2) ("\\bmailto:\\([^ \n\t]+\\)" 0 t gnus-url-mailto 1) diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el index b17356b..e7cd8a2 100644 --- a/lisp/gnus-draft.el +++ b/lisp/gnus-draft.el @@ -112,7 +112,8 @@ (defun gnus-draft-send (article &optional group) "Send message ARTICLE." (gnus-draft-setup article (or group "nndraft:queue")) - (let ((message-syntax-checks 'dont-check-for-anything-just-trust-me)) + (let ((message-syntax-checks 'dont-check-for-anything-just-trust-me) + message-send-hook) (message-send-and-exit))) (defun gnus-draft-send-all-messages () diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index d74a9e6..6fad5c4 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -2949,8 +2949,10 @@ to use." (setq dirs (list dirs))) (while (and (not found) (setq dir (pop dirs))) - (setq file (concat (file-name-as-directory dir) - (gnus-group-real-name group))) + (let ((name (gnus-group-real-name group))) + (while (string-match "\\." name) + (setq name (replace-match "/" t t name))) + (setq file (concat (file-name-as-directory dir) name))) (if (not (file-exists-p file)) (gnus-message 1 "No such file: %s" file) (let ((enable-local-variables nil)) diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index dbf2722..78d2066 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -549,6 +549,8 @@ If SILENT, don't prompt the user." ;; Written by "Mr. Per Persson" . (defun gnus-inews-insert-mime-headers () + "Insert MIME headers. +Assumes ISO-Latin-1 is used iff 8-bit characters are present." (goto-char (point-min)) (let ((mail-header-separator (progn @@ -563,7 +565,7 @@ If SILENT, don't prompt the user." (cond ((save-restriction (widen) (goto-char (point-min)) - (re-search-forward "[\200-\377]" nil t)) + (re-search-forward "[^\000-\177]" nil t)) (or (mail-position-on-field "Content-Type") (insert "text/plain; charset=ISO-8859-1")) (or (mail-position-on-field "Content-Transfer-Encoding") @@ -573,6 +575,8 @@ If SILENT, don't prompt the user." (or (mail-position-on-field "Content-Transfer-Encoding") (insert "7bit"))))))) +(custom-add-option 'message-header-hook 'gnus-inews-insert-mime-headers) + ;;; ;;; Gnus Mail Functions diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el index a2616b6..1226905 100644 --- a/lisp/gnus-score.el +++ b/lisp/gnus-score.el @@ -195,8 +195,8 @@ It can be: :type '(choice string (repeat (choice string (cons regexp (repeat file)) - function)) - function)) + (function :value fun))) + (function :value fun))) (defcustom gnus-home-adapt-file nil "Variable to control where new adaptive score entries are to go. @@ -206,8 +206,8 @@ This variable allows the same syntax as `gnus-home-score-file'." :type '(choice string (repeat (choice string (cons regexp (repeat file)) - function)) - function)) + (function :value fun))) + (function :value fun))) (defcustom gnus-default-adaptive-score-alist '((gnus-kill-file-mark) diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index 7b7359e..71801d3 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -2288,7 +2288,7 @@ If FORCE is non-nil, the .newsrc file is read." (let ((list gnus-killed-list) olist) (while list - (when (string-match gnus-save-killed-list) + (when (string-match gnus-save-killed-list (car list)) (push (car list) olist)) (pop list)) (nreverse olist))) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 0168f48..49cada5 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -333,9 +333,9 @@ The articles will simply be fed to the function given by "*Variable used to suggest where articles are to be moved to. It uses the same syntax as the `gnus-split-methods' variable." :group 'gnus-summary-mail - :type '(repeat (choice (list function) - (cons regexp (repeat string)) - sexp))) + :type '(repeat (choice (list :value (fun) function) + (cons :value ("" "") regexp (repeat string)) + (sexp :value nil)))) (defcustom gnus-unread-mark ? "*Mark used for unread articles." @@ -730,7 +730,8 @@ automatically when it is selected." . gnus-summary-high-unread-face) ((and (< score default) (= mark gnus-unread-mark)) . gnus-summary-low-unread-face) - ((and (= mark gnus-unread-mark)) + ((memq mark (list gnus-unread-mark gnus-downloadable-mark + gnus-undownloaded-mark)) . gnus-summary-normal-unread-face) ((> score default) . gnus-summary-high-read-face) @@ -7937,7 +7938,7 @@ The number of articles marked as read is returned." (when all (setq gnus-newsgroup-marked nil gnus-newsgroup-dormant nil)) - (setq gnus-newsgroup-unreads nil)) + (setq gnus-newsgroup-unreads gnus-newsgroup-downloadable)) ;; We actually mark all articles as canceled, which we ;; have to do when using auto-expiry or adaptive scoring. (gnus-summary-show-all-threads) diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el index 6a67e2b..5338e94 100644 --- a/lisp/gnus-xmas.el +++ b/lisp/gnus-xmas.el @@ -348,6 +348,18 @@ call it with the value of the `gnus-data' text property." (gnus-xmas-menu-add binary gnus-binary-menu)) +(defun gnus-xmas-agent-summary-menu-add () + (gnus-xmas-menu-add agent-summary + gnus-agent-summary-menu)) + +(defun gnus-xmas-agent-group-menu-add () + (gnus-xmas-menu-add agent-group + gnus-agent-group-menu)) + +(defun gnus-xmas-agent-server-menu-add () + (gnus-xmas-menu-add agent-server + gnus-agent-server-menu)) + (defun gnus-xmas-tree-menu-add () (gnus-xmas-menu-add tree gnus-tree-menu)) @@ -500,6 +512,10 @@ call it with the value of the `gnus-data' text property." (add-hook 'gnus-group-mode-hook 'gnus-xmas-setup-group-toolbar) (add-hook 'gnus-summary-mode-hook 'gnus-xmas-setup-summary-toolbar) + (add-hook 'gnus-agent-summary-mode-hook 'gnus-xmas-agent-summary-menu-add) + (add-hook 'gnus-agent-group-mode-hook 'gnus-xmas-agent-group-menu-add) + (add-hook 'gnus-agent-server-mode-hook 'gnus-xmas-agent-server-menu-add) + (add-hook 'gnus-summary-mode-hook 'gnus-xmas-switch-horizontal-scrollbar-off) (add-hook 'gnus-tree-mode-hook 'gnus-xmas-switch-horizontal-scrollbar-off)) diff --git a/lisp/gnus.el b/lisp/gnus.el index 148426a..00ba281 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -246,7 +246,7 @@ is restarted, and sometimes reloaded." :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) -(defconst gnus-version-number "0.19" +(defconst gnus-version-number "0.20" "Version number for this version of Gnus.") (defconst gnus-version (format "Quassia Gnus v%s" gnus-version-number) diff --git a/lisp/nndraft.el b/lisp/nndraft.el index 8458aa0..4c7181b 100644 --- a/lisp/nndraft.el +++ b/lisp/nndraft.el @@ -147,6 +147,8 @@ (deffoo nndraft-request-associate-buffer (group) "Associate the current buffer with some article in the draft group." + (nndraft-open-server "") + (nndraft-request-group group) (nndraft-possibly-change-group group) (let ((gnus-verbose-backends nil) (buf (current-buffer)) diff --git a/lisp/nnmail.el b/lisp/nnmail.el index 57ba600..3e9cd0f 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -300,8 +300,8 @@ that) from the headers before splitting and saving the messages." This can also be a list of regexps." :group 'nnmail-prepare :type '(choice (const :tag "none" nil) - regexp - (repeat regexp))) + (regexp :value ".*") + (repeat :value (".*") regexp))) (defcustom nnmail-pre-get-new-mail-hook nil "Hook called just before starting to handle new incoming mail." @@ -1592,6 +1592,8 @@ See the documentation for the variable `nnmail-split-fancy' for documentation." (file-name-nondirectory (concat (file-name-as-directory temp) "Incoming"))) (concat (file-name-as-directory temp) "Incoming"))))) + (unless (file-exists-p (file-name-directory incoming)) + (make-directory (file-name-directory incoming) t)) (rename-file nnmail-crash-box incoming t) (push incoming incomings)))) ;; If we did indeed read any incoming spools, we save all info. diff --git a/lisp/nnmh.el b/lisp/nnmh.el index 4c302f4..8ac6e44 100644 --- a/lisp/nnmh.el +++ b/lisp/nnmh.el @@ -145,6 +145,7 @@ (string-to-int (file-name-nondirectory file))))) (deffoo nnmh-request-group (group &optional server dont-check) + (nnheader-init-server-buffer) (nnmh-possibly-change-directory group server) (let ((pathname (nnmail-group-pathname group nnmh-directory)) (pathname-coding-system 'binary) diff --git a/lisp/nnoo.el b/lisp/nnoo.el index 84924d9..eea499e 100644 --- a/lisp/nnoo.el +++ b/lisp/nnoo.el @@ -189,7 +189,9 @@ (nconc bvariables (list (cons (car def) (and (boundp (car def)) (symbol-value (car def))))))) - (set (car def) (cadr def)))) + (if (equal server "*internal-non-initialized-backend*") + (set (car def) (symbol-value (cadr def))) + (set (car def) (cadr def))))) (while parents (nnoo-change-server (caar parents) (format "%s+%s" backend server) diff --git a/lisp/nnsoup.el b/lisp/nnsoup.el index 76023da..195cd81 100644 --- a/lisp/nnsoup.el +++ b/lisp/nnsoup.el @@ -666,6 +666,7 @@ backend for the messages.") (require 'mail-utils) (let ((tembuf (generate-new-buffer " message temp")) (case-fold-search nil) + (mail-header-separator "") delimline (mailbuf (current-buffer))) (unwind-protect diff --git a/lisp/nnvirtual.el b/lisp/nnvirtual.el index c814b27..b44caae 100644 --- a/lisp/nnvirtual.el +++ b/lisp/nnvirtual.el @@ -38,7 +38,7 @@ (require 'gnus-util) (require 'gnus-start) (require 'gnus-sum) -(eval-when-compile (require 'cl)) +(require 'cl) (nnoo-declare nnvirtual) diff --git a/texi/ChangeLog b/texi/ChangeLog index 8680f92..5f2650c 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,7 @@ +Sun Jan 4 12:04:45 1998 Lars Magne Ingebrigtsen + + * gnus.texi (Conformity): Removed GNKSA. + Sun Dec 14 11:06:23 1997 Lars Magne Ingebrigtsen * gnus.texi (Adaptive Scoring): Addition. diff --git a/texi/gnus.texi b/texi/gnus.texi index ea9ce5c..c2cd478 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename gnus -@settitle Quassia Gnus 0.19 Manual +@settitle Quassia Gnus 0.20 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -313,7 +313,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Quassia Gnus 0.19 Manual +@title Quassia Gnus 0.20 Manual @author by Lars Magne Ingebrigtsen @page @@ -349,7 +349,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 Quassia Gnus 0.19. +This manual corresponds to Quassia Gnus 0.20. @end ifinfo @@ -15120,11 +15120,6 @@ There are no known breaches of this standard. @cindex RFC 1036 There are no known breaches of this standard, either. -@item Good Net-Keeping Seal of Approval -@cindex Good Net-Keeping Seal of Approval -Gnus has been through the Seal process and failed. I think it'll pass -the next inspection. - @item Son-of-RFC 1036 @cindex Son-of-RFC 1036 We do have some breaches to this one. diff --git a/texi/message.texi b/texi/message.texi index 4bd7a61..418ec94 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename message -@settitle Message 0.19 Manual +@settitle Message 0.20 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -39,7 +39,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Message 0.19 Manual +@title Message 0.20 Manual @author by Lars Magne Ingebrigtsen @page @@ -80,7 +80,7 @@ Message mode buffers. * Key Index:: List of Message mode keys. @end menu -This manual corresponds to Message 0.19. Message is distributed with +This manual corresponds to Message 0.20. Message is distributed with the Gnus distribution bearing the same version number as this manual has.