*** pub/qgnus/lisp/gnus-nocem.el Sat Feb 14 19:27:35 1998 --- qgnus/lisp/gnus-nocem.el Mon Feb 16 20:19:37 1998 *************** *** 345,351 **** (defun gnus-nocem-unwanted-article-p (id) "Say whether article ID in the current group is wanted." ! (gnus-gethash id gnus-nocem-hashtb)) (provide 'gnus-nocem) --- 345,352 ---- (defun gnus-nocem-unwanted-article-p (id) "Say whether article ID in the current group is wanted." ! (and gnus-nocem-hashtb ! (gnus-gethash id gnus-nocem-hashtb))) (provide 'gnus-nocem) *** pub/qgnus/lisp/gnus-start.el Sun Feb 15 19:49:52 1998 --- qgnus/lisp/gnus-start.el Mon Feb 16 20:19:39 1998 *************** *** 1026,1031 **** --- 1026,1033 ---- (new-date (current-time-string)) group new-newsgroups got-new method hashtb gnus-override-subscribe-method) + (unless gnus-killed-hashtb + (gnus-make-hashtable-from-killed)) ;; Go through both primary and secondary select methods and ;; request new newsgroups. (while (setq method (gnus-server-get-method nil (pop methods))) *** pub/qgnus/lisp/gnus-util.el Sat Feb 14 19:27:45 1998 --- qgnus/lisp/gnus-util.el Mon Feb 16 20:19:39 1998 *************** *** 835,842 **** (defun gnus-run-hooks (&rest funcs) "Does the same as `run-hooks', but saves excursion." ! (save-excursion ! (apply 'run-hooks funcs))) ;;; ;;; .netrc and .authinforc parsing --- 835,844 ---- (defun gnus-run-hooks (&rest funcs) "Does the same as `run-hooks', but saves excursion." ! (let ((buf (current-buffer))) ! (unwind-protect ! (apply 'run-hooks funcs) ! (set-buffer buf)))) ;;; ;;; .netrc and .authinforc parsing *** pub/qgnus/lisp/gnus.el Sun Feb 15 19:49:59 1998 --- qgnus/lisp/gnus.el Mon Feb 16 20:19:41 1998 *************** *** 246,252 **** :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "0.27" "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.28" "Version number for this version of Gnus.") (defconst gnus-version (format "Quassia Gnus v%s" gnus-version-number) *** pub/qgnus/lisp/message.el Sun Feb 15 19:50:01 1998 --- qgnus/lisp/message.el Mon Feb 16 20:19:43 1998 *************** *** 224,230 **** :group 'message-various) (defcustom message-elide-elipsis "\n[...]\n\n" ! "*The string which is inserted for elided text.") (defcustom message-interactive nil "*Non-nil means when sending a message wait for and display errors. --- 224,232 ---- :group 'message-various) (defcustom message-elide-elipsis "\n[...]\n\n" ! "*The string which is inserted for elided text." ! :type 'string ! :group 'message-various) (defcustom message-interactive nil "*Non-nil means when sending a message wait for and display errors. *************** *** 1453,1459 **** (interactive) (let ((point (point))) (message-goto-signature) ! (forward-line -2) (kill-region point (point)) (unless (bolp) (insert "\n")))) --- 1455,1462 ---- (interactive) (let ((point (point))) (message-goto-signature) ! (unless (eobp) ! (forward-line -2)) (kill-region point (point)) (unless (bolp) (insert "\n")))) *************** *** 1512,1519 **** (or (bolp) (insert "\n"))))) (defun message-elide-region (b e) ! "Elide the text between point and mark. An ellipsis (from ! message-elide-elipsis) will be inserted where the text was killed." (interactive "r") (kill-region b e) (unless (bolp) --- 1515,1523 ---- (or (bolp) (insert "\n"))))) (defun message-elide-region (b e) ! "Elide the text between point and mark. ! An ellipsis (from `message-elide-elipsis') will be inserted where the ! text was killed." (interactive "r") (kill-region b e) (unless (bolp) *************** *** 1809,1814 **** --- 1813,1819 ---- (defun message-dont-send () "Don't send the message you have been editing." (interactive) + (set-buffer-modified-p t) (save-buffer) (let ((actions message-postpone-actions)) (message-bury (current-buffer)) *** pub/qgnus/lisp/nnmail.el Sat Feb 14 19:27:57 1998 --- qgnus/lisp/nnmail.el Mon Feb 16 20:19:44 1998 *************** *** 1739,1753 **** (princ "\n"))))) (defun nnmail-purge-split-history (group) ! (let ((history nnmail-split-history)) (while history ! (let ((pairs (car history))) ! (while pairs ! (if (string= (car (car pairs)) group) ! (setcar pairs (cdr pairs)) ! (setq pairs (cdr pairs))))) ! (setq history (cdr history)))) ! (setq nnmail-split-history (delq nil nnmail-split-history))) (defun nnmail-new-mail-p (group) "Say whether GROUP has new mail." --- 1739,1753 ---- (princ "\n"))))) (defun nnmail-purge-split-history (group) ! (let ((history nnmail-split-history) ! prev) (while history ! (if (string= (caar history) group) ! (if prev ! (setcdr prev (cdr history)) ! (setq nnmail-split-history (cdr history))) ! (setq prev history ! history (cdr history)))))) (defun nnmail-new-mail-p (group) "Say whether GROUP has new mail." *** pub/qgnus/lisp/nntp.el Sun Feb 15 19:50:02 1998 --- qgnus/lisp/nntp.el Mon Feb 16 20:19:44 1998 *************** *** 166,173 **** (defvoo nntp-coding-system-for-write 'binary "*Coding system to write to NNTP.") ! (defvar nntp-netrc-file "~/.netrc" ! "*The location of the file containing authinfo information.") --- 166,187 ---- (defvoo nntp-coding-system-for-write 'binary "*Coding system to write to NNTP.") ! (defcustom nntp-authinforc-file "~/.authinforc" ! "Docstring." ! :type ! '(choice file ! (repeat :tag "Entries" ! :menu-tag "Inline" ! (list :format "%v" ! :value ("" ("login" . "") ("password" . "")) ! (string :tag "Host") ! (checklist :inline t ! (cons :format "%v" ! (const :format "" "login") ! (string :format "Login: %v")) ! (cons :format "%v" ! (const :format "" "password") ! (string :format "Password: %v"))))))) *************** *** 715,724 **** (defun nntp-send-authinfo () "Send the AUTHINFO to the nntp server. This function is supposed to be called from `nntp-server-opened-hook'. ! It will look in the \"~/.netrc\" file for matching entries. If nothing suitable is found there, it will prompt for a user name and a password." ! (let* ((list (gnus-parse-netrc nntp-netrc-file)) (alist (gnus-netrc-machine list nntp-address)) (user (gnus-netrc-get alist "login")) (passwd (gnus-netrc-get alist "password"))) --- 729,738 ---- (defun nntp-send-authinfo () "Send the AUTHINFO to the nntp server. This function is supposed to be called from `nntp-server-opened-hook'. ! It will look in the \"~/.authinforc\" file for matching entries. If nothing suitable is found there, it will prompt for a user name and a password." ! (let* ((list (gnus-parse-netrc nntp-authinforc-file)) (alist (gnus-netrc-machine list nntp-address)) (user (gnus-netrc-get alist "login")) (passwd (gnus-netrc-get alist "password"))) *** pub/qgnus/lisp/ChangeLog Sun Feb 15 19:49:43 1998 --- qgnus/lisp/ChangeLog Mon Feb 16 20:19:37 1998 *************** *** 1,3 **** --- 1,47 ---- + Mon Feb 16 20:22:04 1998 Lars Magne Ingebrigtsen + + * gnus.el: Quassia Gnus v0.28 is released. + + 1998-02-16 Lars Magne Ingebrigtsen + + * message.el (message-dont-send): Make sure the article really is + saved. + + * nnmail.el (nnmail-purge-split-history): Alist; not a list of + alists. + + 1998-02-16 Hrvoje Niksic + + * message.el (message-kill-to-signature): Do the right thing when + there is no signature. + + 1998-02-16 Hrvoje Niksic + + * message.el (message-elide-elipsis): Add type and group. + (message-elide-region): Docfix. + + 1998-02-16 Lars Magne Ingebrigtsen + + * gnus-util.el (gnus-run-hooks): Use unwind-protect instead of + save-excursion. + + 1998-02-16 Per Abrahamsen + + * nntp.el (nntp-authinforc-file): Customized. + + Mon Feb 16 03:18:33 1998 Lars Magne Ingebrigtsen + + * gnus-nocem.el (gnus-nocem-unwanted-article-p): Don't look if the + hashtable doesn't exist. + + * gnus-start.el (gnus-ask-server-for-new-groups): Make sure the + killed groups hashtable exists. + + Sun Feb 15 23:02:11 1998 Lars Magne Ingebrigtsen + + * nntp.el (nntp-authinforc-file): Changed name and default. + (nntp-send-authinfo): Use it. + Sun Feb 15 19:50:10 1998 Lars Magne Ingebrigtsen * gnus.el: Quassia Gnus v0.27 is released. *** pub/qgnus/texi/gnus.texi Sun Feb 15 19:50:06 1998 --- qgnus/texi/gnus.texi Mon Feb 16 20:19:52 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Quassia Gnus 0.27 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Quassia Gnus 0.28 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 313,319 **** @tex @titlepage ! @title Quassia Gnus 0.27 Manual @author by Lars Magne Ingebrigtsen @page --- 313,319 ---- @tex @titlepage ! @title Quassia Gnus 0.28 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.27. @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.28. @end ifinfo *************** *** 8857,8869 **** @item nntp-authinfo-function @vindex nntp-authinfo-function @findex nntp-send-authinfo ! @vindex nntp-netrc-file This function will be used to send @samp{AUTHINFO} to the @sc{nntp} server. The default function is @code{nntp-send-authinfo}, which looks ! through your @file{~/.netrc} (or whatever you've set the ! @code{nntp-netrc-file} variable to) for applicable entries. If none are ! found, it will prompt you for a login name and a password. The format ! of the @file{~/.netrc} file is defined in the @code{ftp} manual page, but here are the salient facts: @enumerate --- 8857,8870 ---- @item nntp-authinfo-function @vindex nntp-authinfo-function @findex nntp-send-authinfo ! @vindex nntp-authinforc-file This function will be used to send @samp{AUTHINFO} to the @sc{nntp} server. The default function is @code{nntp-send-authinfo}, which looks ! through your @file{~/.authinforc} (or whatever you've set the ! @code{nntp-authinforc-file} variable to) for applicable entries. If ! none are found, it will prompt you for a login name and a password. The ! format of the @file{~/.authinforc} file is the same as the @code{ftp} ! @file{~/.netrc} file, which is defined in the @code{ftp} manual page, but here are the salient facts: @enumerate *** pub/qgnus/texi/message.texi Sun Feb 15 19:50:07 1998 --- qgnus/texi/message.texi Mon Feb 16 20:19:52 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 0.27 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 0.28 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 39,45 **** @tex @titlepage ! @title Message 0.27 Manual @author by Lars Magne Ingebrigtsen @page --- 39,45 ---- @tex @titlepage ! @title Message 0.28 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 80,86 **** * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 0.27. 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.28. Message is distributed with the Gnus distribution bearing the same version number as this manual has. *** pub/qgnus/texi/ChangeLog Sat Feb 14 19:28:08 1998 --- qgnus/texi/ChangeLog Mon Feb 16 20:19:53 1998 *************** *** 1,3 **** --- 1,7 ---- + Sun Feb 15 23:04:02 1998 Lars Magne Ingebrigtsen + + * gnus.texi (NNTP): Change. + Sat Feb 14 17:46:33 1998 Lars Magne Ingebrigtsen * gnus.texi (Virtual Groups): Fix. *** 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.