Importing gnus-5.6.2

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8376c9d..5187062 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,22 @@
+Sun Mar  8 14:05:25 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: Gnus v5.6.2 is released.
+
+Sun Mar  8 00:35:09 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-picon.el (gnus-get-buffer-name): Look in the assoc for the
+       variable. 
+
+       * nntp.el (nntp-wait-for): Check more for dead connections.
+
+       * gnus-eform.el (gnus-edit-form-buffer): Moved back here.
+
+       * gnus-win.el (gnus-window-to-buffer-helper): Return nil when
+       buffers don't exist.
+
+       * nndraft.el (nndraft-request-restore-buffer): Remove Xref header,
+       not Xrefs.
+

 Sun Mar  8 00:00:04 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Gnus v5.6.1 is released.
 Sun Mar  8 00:00:04 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Gnus v5.6.1 is released.

diff --git a/lisp/gnus-eform.el b/lisp/gnus-eform.el
index c872a9a..b0ff413 100644 (file)
--- a/lisp/gnus-eform.el
+++ b/lisp/gnus-eform.el
@@ -48,6 +48,7 @@
 
 ;;; Internal variables
 
 
 ;;; Internal variables
 

+(defvar gnus-edit-form-buffer "*Gnus edit form*")

 (defvar gnus-edit-form-done-function nil)
 
 (defvar gnus-edit-form-mode-map nil)
 (defvar gnus-edit-form-done-function nil)
 
 (defvar gnus-edit-form-mode-map nil)

diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el
index 02a5ad0..1efc228 100644 (file)
--- a/lisp/gnus-picon.el
+++ b/lisp/gnus-picon.el
@@ -184,7 +184,8 @@ arguments necessary for the job.")
 
 (defun gnus-get-buffer-name (variable)
   "Returns the buffer name associated with the contents of a variable."
 
 (defun gnus-get-buffer-name (variable)
   "Returns the buffer name associated with the contents of a variable."

-  (buffer-name (get-buffer (gnus-window-to-buffer-helper variable))))
+  (buffer-name (get-buffer (gnus-window-to-buffer-helper
+                           (cdr (assq variable gnus-window-to-buffer))))))

 
 (defun gnus-picons-buffer-name ()
   (cond ((or (stringp gnus-picons-display-where)
 
 (defun gnus-picons-buffer-name ()
   (cond ((or (stringp gnus-picons-display-where)

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 6264cd9..09a8058 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -2594,8 +2594,6 @@ the thread are to be displayed."
       (and (consp elem)                        ; Has to be a cons.
           (consp (cdr elem))           ; The cdr has to be a list.
           (symbolp (car elem))         ; Has to be a symbol in there.
       (and (consp elem)                        ; Has to be a cons.
           (consp (cdr elem))           ; The cdr has to be a list.
           (symbolp (car elem))         ; Has to be a symbol in there.

-          (not (memq (car elem)
-                     '(quit-config to-address to-list to-group)))

           (ignore-errors               ; So we set it.
             (make-local-variable (car elem))
             (set (car elem) (eval (nth 1 elem))))))))
           (ignore-errors               ; So we set it.
             (make-local-variable (car elem))
             (set (car elem) (eval (nth 1 elem))))))))

diff --git a/lisp/gnus-win.el b/lisp/gnus-win.el
index 6c29c5b..2d94679 100644 (file)
--- a/lisp/gnus-win.el
+++ b/lisp/gnus-win.el
@@ -268,11 +268,14 @@ See the Gnus manual for an explanation of the syntax used.")
 (defvar gnus-frame-list nil)
 
 (defun gnus-window-to-buffer-helper (obj)
 (defvar gnus-frame-list nil)
 
 (defun gnus-window-to-buffer-helper (obj)

-  (if (symbolp obj)
-      (if (boundp obj)
-         (symbol-value obj)
-       (funcall obj))
-    obj))
+  (cond ((not (symbolp obj))
+        obj)
+       ((boundp obj)
+        (symbol-value obj))
+       ((fboundp obj)
+        (funcall obj))
+       (t
+        nil)))

 
 (defun gnus-configure-frame (split &optional window)
   "Split WINDOW according to SPLIT."
 
 (defun gnus-configure-frame (split &optional window)
   "Split WINDOW according to SPLIT."

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 15b2bc5..79d459b 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)
 
   :link '(custom-manual "(gnus)Exiting Gnus")
   :group 'gnus)
 

-(defconst gnus-version-number "5.6.1"
+(defconst gnus-version-number "5.6.2"

   "Version number for this version of Gnus.")
 
 (defconst gnus-version (format "Gnus v%s" gnus-version-number)
   "Version number for this version of Gnus.")
 
 (defconst gnus-version (format "Gnus v%s" gnus-version-number)

@@ -1374,7 +1374,6 @@ want."
 (defvar gnus-original-article-buffer " *Original Article*")
 (defvar gnus-newsgroup-name nil)
 (defvar gnus-ephemeral-servers nil)
 (defvar gnus-original-article-buffer " *Original Article*")
 (defvar gnus-newsgroup-name nil)
 (defvar gnus-ephemeral-servers nil)

-(defvar gnus-edit-form-buffer "*Gnus edit form*")

 
 (defvar gnus-agent nil
   "Whether we want to use the Gnus agent or not.")
 
 (defvar gnus-agent nil
   "Whether we want to use the Gnus agent or not.")

diff --git a/lisp/nndraft.el b/lisp/nndraft.el
index be653df..6bbd1fb 100644 (file)
--- a/lisp/nndraft.el
+++ b/lisp/nndraft.el
@@ -125,7 +125,7 @@
   "Request a new buffer that is restored to the state of ARTICLE."
   (nndraft-possibly-change-group group)
   (when (nndraft-request-article article group server (current-buffer))
   "Request a new buffer that is restored to the state of ARTICLE."
   (nndraft-possibly-change-group group)
   (when (nndraft-request-article article group server (current-buffer))

-    (message-remove-header "xrefs")
+    (message-remove-header "xref")

     (message-remove-header "lines")
     (let ((gnus-verbose-backends nil))
       (nndraft-request-expire-articles (list article) group server t))
     (message-remove-header "lines")
     (let ((gnus-verbose-backends nil))
       (nndraft-request-expire-articles (list article) group server t))

diff --git a/lisp/nntp.el b/lisp/nntp.el
index 36c5ba2..8f10d3e 100644 (file)
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -245,8 +245,9 @@ server there that you can connect to.  See also
   (save-excursion
     (set-buffer (process-buffer process))
     (goto-char (point-min))
   (save-excursion
     (set-buffer (process-buffer process))
     (goto-char (point-min))

-    (while (or (not (memq (char-after (point)) '(?2 ?3 ?4 ?5)))
-              (looking-at "480"))
+    (while (and (or (not (memq (char-after (point)) '(?2 ?3 ?4 ?5)))
+                   (looking-at "480"))
+               (memq (process-status process) '(open run)))

       (when (looking-at "480")
        (nntp-handle-authinfo process))
       (nntp-accept-process-output process)
       (when (looking-at "480")
        (nntp-handle-authinfo process))
       (nntp-accept-process-output process)

diff --git a/texi/ChangeLog b/texi/ChangeLog
index 15943b4..f10df33 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,11 @@
+Sun Mar  8 13:56:37 1998  James Troup  <J.J.Troup@scm.brad.ac.uk>
+
+       * gnus.texi (Group Highlighting): Removed old example.
+
+Sun Mar  8 00:19:24 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus.texi (Group Info): Fix ".".
+

 Sat Mar  7 17:09:49 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
 
        * gnus.texi: Took direntries out again, since makeinfo doesn't
 Sat Mar  7 17:09:49 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
 
        * gnus.texi: Took direntries out again, since makeinfo doesn't

diff --git a/texi/gnus.texi b/texi/gnus.texi
index dcc40e1..350be7d 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename gnus
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename gnus

-@settitle Gnus 5.6.1 Manual
+@settitle Gnus 5.6.2 Manual

 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp

@@ -316,7 +316,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
 @tex
 
 @titlepage

-@title Gnus 5.6.1 Manual
+@title Gnus 5.6.2 Manual

 
 @author by Lars Magne Ingebrigtsen
 @page
 
 @author by Lars Magne Ingebrigtsen
 @page

@@ -352,7 +352,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.
 
 spool or your mbox file.  All at the same time, if you want to push your
 luck.
 

-This manual corresponds to Gnus 5.6.1.
+This manual corresponds to Gnus 5.6.2.

 
 @end ifinfo
 
 
 @end ifinfo
 

@@ -1281,17 +1281,6 @@ background is dark:
        ((and (< level 3) (zerop unread)) . my-group-face-2)
        ((< level 3) . my-group-face-3)
        ((zerop unread) . my-group-face-4)
        ((and (< level 3) (zerop unread)) . my-group-face-2)
        ((< level 3) . my-group-face-3)
        ((zerop unread) . my-group-face-4)

-(setq gnus-group-highlight
-      `(((> unread 200) . 
-         ,(custom-face-lookup "Red" nil nil t nil nil))
-        ((and (< level 3) (zerop unread)) . 
-         ,(custom-face-lookup "SeaGreen" nil nil t nil nil))
-        ((< level 3) . 
-         ,(custom-face-lookup "SpringGreen" nil nil t nil nil))
-        ((zerop unread) . 
-         ,(custom-face-lookup "SteelBlue" nil nil t nil nil))
-        (t . 
-         ,(custom-face-lookup "SkyBlue" nil nil t nil nil))))

        (t . my-group-face-5)))
 @end lisp
 
        (t . my-group-face-5)))
 @end lisp
 

@@ -1952,19 +1941,35 @@ groups from different @sc{nntp} servers.
 @section Group Parameters
 @cindex group parameters
 
 @section Group Parameters
 @cindex group parameters
 

-The group parameters store information local to a particular group:
+The group parameters store information local to a particular group.
+Here's an example group parameter list:
+
+@example
+((to-address . "ding@@gnus.org")
+ (auto-expire . t))
+@end example
+
+We see that each element consists of a "dotted pair"---the thing before
+the dot is the key, while the thing after the dot is the value.  All the
+parameters have this form @emph{except} local variable specs, which are
+not dotted pairs, but proper lists.
+
+The following group parameters can be used:

 
 @table @code
 @item to-address
 @cindex to-address
 
 @table @code
 @item to-address
 @cindex to-address

-If the group parameter list contains an element that looks like
-@code{(to-address .  "some@@where.com")}, that address will be used by
-the backend when doing followups and posts.  This is primarily useful in
-mail groups that represent closed mailing lists---mailing lists where
-it's expected that everybody that writes to the mailing list is
-subscribed to it.  Since using this parameter ensures that the mail only
-goes to the mailing list itself, it means that members won't receive two
-copies of your followups.
+Address used by when doing followups and new posts.
+
+@example
+(to-address .  "some@@where.com")
+@end example
+
+This is primarily useful in mail groups that represent closed mailing
+lists---mailing lists where it's expected that everybody that writes to
+the mailing list is subscribed to it.  Since using this parameter
+ensures that the mail only goes to the mailing list itself, it means
+that members won't receive two copies of your followups.

 
 Using @code{to-address} will actually work whether the group is foreign
 or not.  Let's say there's a group on the server that is called
 
 Using @code{to-address} will actually work whether the group is foreign
 or not.  Let's say there's a group on the server that is called

@@ -1975,11 +1980,15 @@ list address instead.
 
 @item to-list
 @cindex to-list
 
 @item to-list
 @cindex to-list

-If the group parameter list has an element that looks like
-@code{(to-list . "some@@where.com")}, that address will be used when
-doing a @kbd{a} in that group.  It is totally ignored when doing a
-followup---except that if it is present in a news group, you'll get mail
-group semantics when doing @kbd{f}.
+Address used when doing a @kbd{a} in that group.
+
+@example
+(to-list . "some@@where.com")
+@end example
+
+It is totally ignored
+when doing a followup---except that if it is present in a news group,
+you'll get mail group semantics when doing @kbd{f}.

 
 If you do an @kbd{a} command in a mail group and you have neither a
 @code{to-list} group parameter nor a @code{to-address} group paramater,
 
 If you do an @kbd{a} command in a mail group and you have neither a
 @code{to-list} group parameter nor a @code{to-address} group paramater,

@@ -2012,19 +2021,20 @@ posts in that group will be sent to @code{some.group.name}.
 
 @item newsgroup
 @cindex newsgroup
 
 @item newsgroup
 @cindex newsgroup

-If this symbol is present in the group parameter list, Gnus will treat
-all responses as if they were responses to news articles.  This can be
-useful if you have a mail group that's really a mirror of a news group. 
+If you have @code{(newsgroup . t)} in the group parameter list, Gnus
+will treat all responses as if they were responses to news articles.
+This can be useful if you have a mail group that's really a mirror of a
+news group.

 
 @item gcc-self
 @cindex gcc-self
 
 @item gcc-self
 @cindex gcc-self

-If this symbol is present in the group parameter list and set to
-@code{t}, newly composed messages will be @code{Gcc}'d to the current
-group. If it is present and set to @code{none}, no @code{Gcc:} header
-will be generated, if it is present and a string, this string will be
-inserted literally as a @code{gcc} header (this symbol takes precedence
-over any default @code{Gcc} rules as described later).  @xref{Archived
-Messages}
+If @code{(gcc-self . t)} is present in the group parameter list, newly
+composed messages will be @code{Gcc}'d to the current group. If
+@code{(gcc-self . none)} is present, no @code{Gcc:} header will be
+generated, if @code{(gcc-self . "string")} is present, this string will
+be inserted literally as a @code{gcc} header.  This parameter takes
+precedence over any default @code{Gcc} rules as described later
+(@pxref{Archived Messages}).

 
 @item auto-expire
 @cindex auto-expire
 
 @item auto-expire
 @cindex auto-expire

@@ -2106,13 +2116,6 @@ Use the @kbd{G p} command to edit group parameters of a group.  You
 might also be interested in reading about topic parameters (@pxref{Topic
 Parameters}).
 
 might also be interested in reading about topic parameters (@pxref{Topic
 Parameters}).
 

-Here's an example group parameter list:
-
-@example
-((to-address . "ding@@gnus.org")
- (auto-expire . t))
-@end example
-

 
 @node Listing Groups
 @section Listing Groups
 
 @node Listing Groups
 @section Listing Groups

@@ -15642,7 +15645,7 @@ actually are people who are using Gnus.  Who'd'a thunk it!
 * ding Gnus::          New things in Gnus 5.0/5.1, the first new Gnus.
 * September Gnus::     The Thing Formally Known As Gnus 5.3/5.3.
 * Red Gnus::           Third time best---Gnus 5.4/5.5.
 * ding Gnus::          New things in Gnus 5.0/5.1, the first new Gnus.
 * September Gnus::     The Thing Formally Known As Gnus 5.3/5.3.
 * Red Gnus::           Third time best---Gnus 5.4/5.5.

-* Quassia Gnus::       Two times two is four, or Gnus 5.6.1.7.
+* Quassia Gnus::       Two times two is four, or Gnus 5.6.2.7.

 @end menu
 
 These lists are, of course, just @emph{short} overviews of the
 @end menu
 
 These lists are, of course, just @emph{short} overviews of the

@@ -16177,7 +16180,7 @@ Emphasized text can be properly fontisized:
 @node Quassia Gnus
 @subsubsection Quassia Gnus
 
 @node Quassia Gnus
 @subsubsection Quassia Gnus
 

-New features in Gnus 5.6.1.7:
+New features in Gnus 5.6.2.7:

 
 @itemize @bullet
 
 
 @itemize @bullet
 

@@ -19024,7 +19027,7 @@ second is a more complex one:
 ("nnml:my.mail" 3 ((1 . 5) 9 (20 . 55))
                 ((tick (15 . 19)) (replied 3 6 (19 . 3)))
                 (nnml "")
 ("nnml:my.mail" 3 ((1 . 5) 9 (20 . 55))
                 ((tick (15 . 19)) (replied 3 6 (19 . 3)))
                 (nnml "")

-                ((auto-expire . t) (to-address "ding@@gnus.org")))
+                ((auto-expire . t) (to-address . "ding@@gnus.org")))

 @end example
 
 The first element is the @dfn{group name}---as Gnus knows the group,
 @end example
 
 The first element is the @dfn{group name}---as Gnus knows the group,

diff --git a/texi/message.texi b/texi/message.texi
index 5cda811..be8d4ec 100644 (file)
--- a/texi/message.texi
+++ b/texi/message.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename message
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename message

-@settitle Message 5.6.1 Manual
+@settitle Message 5.6.2 Manual

 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp

@@ -42,7 +42,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
 @tex
 
 @titlepage

-@title Message 5.6.1 Manual
+@title Message 5.6.2 Manual

 
 @author by Lars Magne Ingebrigtsen
 @page
 
 @author by Lars Magne Ingebrigtsen
 @page

@@ -83,7 +83,7 @@ Message mode buffers.
 * Key Index::         List of Message mode keys.
 @end menu
 
 * Key Index::         List of Message mode keys.
 @end menu
 

-This manual corresponds to Message 5.6.1.  Message is distributed with
+This manual corresponds to Message 5.6.2.  Message is distributed with

 the Gnus distribution bearing the same version number as this manual
 has. 
 
 the Gnus distribution bearing the same version number as this manual
 has.