From: morioka Date: Tue, 17 Feb 1998 19:45:43 +0000 (+0000) Subject: Quassia Gnus v0.28. X-Git-Tag: qgnus-0_28~1 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f611a8c4d03d20ade562c17b03bb807d7f65cb8a;p=elisp%2Fgnus.git- Quassia Gnus v0.28. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2ec832d..3afc35a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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. diff --git a/lisp/gnus-nocem.el b/lisp/gnus-nocem.el index a3c5ebc..4b761bc 100644 --- a/lisp/gnus-nocem.el +++ b/lisp/gnus-nocem.el @@ -345,7 +345,8 @@ active file." (defun gnus-nocem-unwanted-article-p (id) "Say whether article ID in the current group is wanted." - (gnus-gethash id gnus-nocem-hashtb)) + (and gnus-nocem-hashtb + (gnus-gethash id gnus-nocem-hashtb))) (provide 'gnus-nocem) diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index 66bb153..cfbcbfa 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -1026,6 +1026,8 @@ for new groups." (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))) diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index cfdfa73..5763b96 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -835,8 +835,10 @@ ARG is passed to the first function." (defun gnus-run-hooks (&rest funcs) "Does the same as `run-hooks', but saves excursion." - (save-excursion - (apply 'run-hooks funcs))) + (let ((buf (current-buffer))) + (unwind-protect + (apply 'run-hooks funcs) + (set-buffer buf)))) ;;; ;;; .netrc and .authinforc parsing diff --git a/lisp/gnus.el b/lisp/gnus.el index 7bbeef9..aa67654 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.27" +(defconst gnus-version-number "0.28" "Version number for this version of Gnus.") (defconst gnus-version (format "Quassia Gnus v%s" gnus-version-number) diff --git a/lisp/message.el b/lisp/message.el index 57a39bb..65cba47 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -224,7 +224,9 @@ any confusion." :group 'message-various) (defcustom message-elide-elipsis "\n[...]\n\n" - "*The string which is inserted for elided text.") + "*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,7 +1455,8 @@ With the prefix argument FORCE, insert the header anyway." (interactive) (let ((point (point))) (message-goto-signature) - (forward-line -2) + (unless (eobp) + (forward-line -2)) (kill-region point (point)) (unless (bolp) (insert "\n")))) @@ -1512,8 +1515,9 @@ With the prefix argument FORCE, insert the header anyway." (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." + "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,6 +1813,7 @@ The text will also be indented the normal way." (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)) diff --git a/lisp/nnmail.el b/lisp/nnmail.el index 3a5297c..1a8470f 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -1739,15 +1739,15 @@ If ARGS, PROMPT is used as an argument to `format'." (princ "\n"))))) (defun nnmail-purge-split-history (group) - (let ((history nnmail-split-history)) + (let ((history nnmail-split-history) + prev) (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))) + (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." diff --git a/lisp/nntp.el b/lisp/nntp.el index a138b00..9d6b231 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -166,8 +166,22 @@ server there that you can connect to. See also (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.") +(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,10 +729,10 @@ reading." (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 +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-netrc-file)) + (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"))) diff --git a/texi/ChangeLog b/texi/ChangeLog index a3f2538..24b2944 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -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. diff --git a/texi/gnus.texi b/texi/gnus.texi index 9248064..aa2d330 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename gnus -@settitle Quassia Gnus 0.27 Manual +@settitle Quassia Gnus 0.28 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.27 Manual +@title Quassia Gnus 0.28 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.27. +This manual corresponds to Quassia Gnus 0.28. @end ifinfo @@ -8857,13 +8857,14 @@ present in this hook. @item nntp-authinfo-function @vindex nntp-authinfo-function @findex nntp-send-authinfo -@vindex nntp-netrc-file +@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{~/.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, +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 diff --git a/texi/message.texi b/texi/message.texi index b128681..96433a4 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename message -@settitle Message 0.27 Manual +@settitle Message 0.28 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.27 Manual +@title Message 0.28 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.27. Message is distributed with +This manual corresponds to Message 0.28. Message is distributed with the Gnus distribution bearing the same version number as this manual has.