*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2ec832d..3afc35a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,47 @@
+Mon Feb 16 20:22:04 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: Quassia Gnus v0.28 is released.
+
+1998-02-16  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * 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  <hniksic@srce.hr>
+
+       * message.el (message-kill-to-signature): Do the right thing when
+       there is no signature.
+
+1998-02-16  Hrvoje Niksic  <hniksic@srce.hr>
+
+       * message.el (message-elide-elipsis): Add type and group.
+       (message-elide-region): Docfix.
+
+1998-02-16  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-util.el (gnus-run-hooks): Use unwind-protect instead of
+       save-excursion. 
+
+1998-02-16  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+       * nntp.el (nntp-authinforc-file): Customized.
+
+Mon Feb 16 03:18:33 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * 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  <larsi@ifi.uio.no>
+
+       * nntp.el (nntp-authinforc-file): Changed name and default.
+       (nntp-send-authinfo): Use it.
+
 Sun Feb 15 19:50:10 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Quassia Gnus v0.27 is released.

diff --git a/lisp/gnus-nocem.el b/lisp/gnus-nocem.el
index a3c5ebc..4b761bc 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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")))))))
 
 \f
 
@@ -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 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,7 @@
+Sun Feb 15 23:04:02 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus.texi (NNTP): Change.
+
 Sat Feb 14 17:46:33 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
 
        * gnus.texi (Virtual Groups): Fix.

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 9248064..aa2d330 100644 (file)
--- 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 (file)
--- 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.