*** pub/qgnus/lisp/gnus-art.el Sat Dec 6 17:45:08 1997 --- qgnus/lisp/gnus-art.el Sun Jan 4 14:35:15 1998 *************** *** 155,161 **** 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) :group 'gnus-article-signature) (defcustom gnus-hidden-properties '(invisible t intangible t) --- 155,164 ---- 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 :value 200) ! (number :value 4.0) ! (function :value fun) ! (regexp :value ".*")) :group 'gnus-article-signature) (defcustom gnus-hidden-properties '(invisible t intangible t) *************** *** 270,276 **** :group 'gnus-article-saving :type '(choice (item always) (item :tag "never" nil) ! (sexp :tag "once" :format "%t"))) (defcustom gnus-saved-headers gnus-visible-headers "Headers to keep if `gnus-save-all-headers' is nil. --- 273,279 ---- :group 'gnus-article-saving :type '(choice (item always) (item :tag "never" nil) ! (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,357 **** 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))) (defcustom gnus-strict-mime t "*If nil, MIME-decode even if there is no Mime-Version header." --- 352,360 ---- 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 :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,2673 **** ("\\(\\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 t gnus-button-message-id 3) ("\\( \n\t]+\\)>" 0 t gnus-url-mailto 2) ("\\bmailto:\\([^ \n\t]+\\)" 0 t gnus-url-mailto 1) --- 2670,2676 ---- ("\\(\\b<\\(url: ?\\)?news:\\(//\\)?\\([^>\n\t ]*\\)>\\)" 1 t gnus-button-fetch-group 4) ("\\bnews:\\(//\\)?\\([^'\">\n\t ]+\\)" 0 t gnus-button-fetch-group 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) *** pub/qgnus/lisp/gnus-draft.el Wed Nov 26 17:44:35 1997 --- qgnus/lisp/gnus-draft.el Sun Jan 4 14:35:15 1998 *************** *** 112,118 **** (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)) (message-send-and-exit))) (defun gnus-draft-send-all-messages () --- 112,119 ---- (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) ! message-send-hook) (message-send-and-exit))) (defun gnus-draft-send-all-messages () *** pub/qgnus/lisp/gnus-group.el Sun Jan 4 11:11:50 1998 --- qgnus/lisp/gnus-group.el Sun Jan 4 14:35:17 1998 *************** *** 2949,2956 **** (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))) (if (not (file-exists-p file)) (gnus-message 1 "No such file: %s" file) (let ((enable-local-variables nil)) --- 2949,2958 ---- (setq dirs (list dirs))) (while (and (not found) (setq dir (pop dirs))) ! (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)) *** pub/qgnus/lisp/gnus-msg.el Wed Nov 26 17:44:38 1997 --- qgnus/lisp/gnus-msg.el Sun Jan 4 14:35:17 1998 *************** *** 549,554 **** --- 549,556 ---- ;; 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,569 **** (cond ((save-restriction (widen) (goto-char (point-min)) ! (re-search-forward "[\200-\377]" nil t)) (or (mail-position-on-field "Content-Type") (insert "text/plain; charset=ISO-8859-1")) (or (mail-position-on-field "Content-Transfer-Encoding") --- 565,571 ---- (cond ((save-restriction (widen) (goto-char (point-min)) ! (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") *************** *** 572,577 **** --- 574,581 ---- (insert "text/plain; charset=US-ASCII")) (or (mail-position-on-field "Content-Transfer-Encoding") (insert "7bit"))))))) + + (custom-add-option 'message-header-hook 'gnus-inews-insert-mime-headers) ;;; *** pub/qgnus/lisp/gnus-score.el Sun Jan 4 11:11:52 1998 --- qgnus/lisp/gnus-score.el Sun Jan 4 14:35:19 1998 *************** *** 195,202 **** :type '(choice string (repeat (choice string (cons regexp (repeat file)) ! function)) ! function)) (defcustom gnus-home-adapt-file nil "Variable to control where new adaptive score entries are to go. --- 195,202 ---- :type '(choice string (repeat (choice string (cons regexp (repeat file)) ! (function :value fun))) ! (function :value fun))) (defcustom gnus-home-adapt-file nil "Variable to control where new adaptive score entries are to go. *************** *** 206,213 **** :type '(choice string (repeat (choice string (cons regexp (repeat file)) ! function)) ! function)) (defcustom gnus-default-adaptive-score-alist '((gnus-kill-file-mark) --- 206,213 ---- :type '(choice string (repeat (choice string (cons regexp (repeat file)) ! (function :value fun))) ! (function :value fun))) (defcustom gnus-default-adaptive-score-alist '((gnus-kill-file-mark) *** pub/qgnus/lisp/gnus-start.el Sun Jan 4 11:11:54 1998 --- qgnus/lisp/gnus-start.el Sun Jan 4 14:35:20 1998 *************** *** 2288,2294 **** (let ((list gnus-killed-list) olist) (while list ! (when (string-match gnus-save-killed-list) (push (car list) olist)) (pop list)) (nreverse olist))) --- 2288,2294 ---- (let ((list gnus-killed-list) olist) (while list ! (when (string-match gnus-save-killed-list (car list)) (push (car list) olist)) (pop list)) (nreverse olist))) *** pub/qgnus/lisp/gnus-sum.el Sun Jan 4 11:11:59 1998 --- qgnus/lisp/gnus-sum.el Sun Jan 4 14:35:26 1998 *************** *** 333,341 **** "*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))) (defcustom gnus-unread-mark ? "*Mark used for unread articles." --- 333,341 ---- "*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 :value (fun) function) ! (cons :value ("" "") regexp (repeat string)) ! (sexp :value nil)))) (defcustom gnus-unread-mark ? "*Mark used for unread articles." *************** *** 730,736 **** . gnus-summary-high-unread-face) ((and (< score default) (= mark gnus-unread-mark)) . gnus-summary-low-unread-face) ! ((and (= mark gnus-unread-mark)) . gnus-summary-normal-unread-face) ((> score default) . gnus-summary-high-read-face) --- 730,737 ---- . gnus-summary-high-unread-face) ((and (< score default) (= mark gnus-unread-mark)) . gnus-summary-low-unread-face) ! ((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,7943 **** (when all (setq gnus-newsgroup-marked nil gnus-newsgroup-dormant nil)) ! (setq gnus-newsgroup-unreads nil)) ;; We actually mark all articles as canceled, which we ;; have to do when using auto-expiry or adaptive scoring. (gnus-summary-show-all-threads) --- 7938,7944 ---- (when all (setq gnus-newsgroup-marked nil gnus-newsgroup-dormant 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) *** pub/qgnus/lisp/gnus-xmas.el Wed Nov 26 17:44:48 1997 --- qgnus/lisp/gnus-xmas.el Sun Jan 4 14:35:27 1998 *************** *** 348,353 **** --- 348,365 ---- (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,505 **** --- 512,521 ---- (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)) *** pub/qgnus/lisp/gnus.el Sun Jan 4 11:12:03 1998 --- qgnus/lisp/gnus.el Sun Jan 4 14:35:28 1998 *************** *** 246,252 **** :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "0.19" "Version number for this version of Gnus.") (defconst gnus-version (format "Quassia Gnus v%s" gnus-version-number) --- 246,252 ---- :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "0.20" "Version number for this version of Gnus.") (defconst gnus-version (format "Quassia Gnus v%s" gnus-version-number) *** pub/qgnus/lisp/nndraft.el Sat Dec 6 17:45:23 1997 --- qgnus/lisp/nndraft.el Sun Jan 4 14:35:28 1998 *************** *** 147,152 **** --- 147,154 ---- (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)) *** pub/qgnus/lisp/nnmail.el Sun Jan 4 11:12:07 1998 --- qgnus/lisp/nnmail.el Sun Jan 4 14:35:30 1998 *************** *** 300,307 **** This can also be a list of regexps." :group 'nnmail-prepare :type '(choice (const :tag "none" nil) ! regexp ! (repeat regexp))) (defcustom nnmail-pre-get-new-mail-hook nil "Hook called just before starting to handle new incoming mail." --- 300,307 ---- This can also be a list of regexps." :group 'nnmail-prepare :type '(choice (const :tag "none" nil) ! (regexp :value ".*") ! (repeat :value (".*") regexp))) (defcustom nnmail-pre-get-new-mail-hook nil "Hook called just before starting to handle new incoming mail." *************** *** 1592,1597 **** --- 1592,1599 ---- (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. *** pub/qgnus/lisp/nnmh.el Tue Nov 25 16:19:23 1997 --- qgnus/lisp/nnmh.el Sun Jan 4 14:35:30 1998 *************** *** 145,150 **** --- 145,151 ---- (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) *** pub/qgnus/lisp/nnoo.el Wed Nov 26 17:44:55 1997 --- qgnus/lisp/nnoo.el Sun Jan 4 14:35:30 1998 *************** *** 189,195 **** (nconc bvariables (list (cons (car def) (and (boundp (car def)) (symbol-value (car def))))))) ! (set (car def) (cadr def)))) (while parents (nnoo-change-server (caar parents) (format "%s+%s" backend server) --- 189,197 ---- (nconc bvariables (list (cons (car def) (and (boundp (car def)) (symbol-value (car 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) *** pub/qgnus/lisp/nnsoup.el Wed Sep 24 04:12:50 1997 --- qgnus/lisp/nnsoup.el Sun Jan 4 14:35:31 1998 *************** *** 666,671 **** --- 666,672 ---- (require 'mail-utils) (let ((tembuf (generate-new-buffer " message temp")) (case-fold-search nil) + (mail-header-separator "") delimline (mailbuf (current-buffer))) (unwind-protect *** pub/qgnus/lisp/nnvirtual.el Sun Sep 21 04:45:13 1997 --- qgnus/lisp/nnvirtual.el Sun Jan 4 14:35:31 1998 *************** *** 38,44 **** (require 'gnus-util) (require 'gnus-start) (require 'gnus-sum) ! (eval-when-compile (require 'cl)) (nnoo-declare nnvirtual) --- 38,44 ---- (require 'gnus-util) (require 'gnus-start) (require 'gnus-sum) ! (require 'cl) (nnoo-declare nnvirtual) *** pub/qgnus/lisp/ChangeLog Sun Jan 4 11:11:48 1998 --- qgnus/lisp/ChangeLog Sun Jan 4 14:35:13 1998 *************** *** 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. *** pub/qgnus/texi/gnus.texi Sun Jan 4 11:12:17 1998 --- qgnus/texi/gnus.texi Sun Jan 4 14:35:35 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Quassia Gnus 0.19 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Quassia Gnus 0.20 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 313,319 **** @tex @titlepage ! @title Quassia Gnus 0.19 Manual @author by Lars Magne Ingebrigtsen @page --- 313,319 ---- @tex @titlepage ! @title Quassia Gnus 0.20 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 349,355 **** 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. @end ifinfo --- 349,355 ---- spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Quassia Gnus 0.20. @end ifinfo *************** *** 15119,15129 **** @item RFC 1036 @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 --- 15119,15124 ---- *** pub/qgnus/texi/message.texi Sun Jan 4 11:12:18 1998 --- qgnus/texi/message.texi Sun Jan 4 14:35:35 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 0.19 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 0.20 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 39,45 **** @tex @titlepage ! @title Message 0.19 Manual @author by Lars Magne Ingebrigtsen @page --- 39,45 ---- @tex @titlepage ! @title Message 0.20 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 80,86 **** * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 0.19. Message is distributed with the Gnus distribution bearing the same version number as this manual has. --- 80,86 ---- * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 0.20. Message is distributed with the Gnus distribution bearing the same version number as this manual has. *** pub/qgnus/texi/ChangeLog Sun Jan 4 11:12:18 1998 --- qgnus/texi/ChangeLog Sun Jan 4 14:35:36 1998 *************** *** 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. *** pub/qgnus/texi/dir Wed Jun 18 00:54:19 1997 --- qgnus/texi/dir Tue Nov 25 06:16:59 1997 *************** *** 0 **** --- 1,9 ---- + -*- Text -*- + The Gnus-related top node. +  + File: dir Node: Top This is the Gnus Info tree + + * Menu: + + * Gnus: (gnus). The news reader Gnus. + * Message: (message). The Message sending thingamabob.