Importing gnus-5.6.2
authorshuhei-k <shuhei-k>
Sun, 8 Mar 1998 19:19:09 +0000 (19:19 +0000)
committershuhei-k <shuhei-k>
Sun, 8 Mar 1998 19:19:09 +0000 (19:19 +0000)
lisp/ChangeLog
lisp/gnus-eform.el
lisp/gnus-picon.el
lisp/gnus-sum.el
lisp/gnus-win.el
lisp/gnus.el
lisp/nndraft.el
lisp/nntp.el
texi/ChangeLog
texi/gnus.texi
texi/message.texi

index 8376c9d..5187062 100644 (file)
@@ -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.
index c872a9a..b0ff413 100644 (file)
@@ -48,6 +48,7 @@
 
 ;;; Internal variables
 
+(defvar gnus-edit-form-buffer "*Gnus edit form*")
 (defvar gnus-edit-form-done-function nil)
 
 (defvar gnus-edit-form-mode-map nil)
index 02a5ad0..1efc228 100644 (file)
@@ -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."
-  (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)
index 6264cd9..09a8058 100644 (file)
@@ -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.
-          (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))))))))
index 6c29c5b..2d94679 100644 (file)
@@ -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)
-  (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."
index 15b2bc5..79d459b 100644 (file)
@@ -246,7 +246,7 @@ is restarted, and sometimes reloaded."
   :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)
@@ -1374,7 +1374,6 @@ want."
 (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.")
index be653df..6bbd1fb 100644 (file)
   "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))
index 36c5ba2..8f10d3e 100644 (file)
@@ -245,8 +245,9 @@ server there that you can connect to.  See also
   (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)
index 15943b4..f10df33 100644 (file)
@@ -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
index dcc40e1..350be7d 100644 (file)
@@ -1,7 +1,7 @@
 \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
@@ -316,7 +316,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Gnus 5.6.1 Manual
+@title Gnus 5.6.2 Manual
 
 @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.
 
-This manual corresponds to Gnus 5.6.1.
+This manual corresponds to Gnus 5.6.2.
 
 @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)
-(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
 
@@ -1952,19 +1941,35 @@ groups from different @sc{nntp} servers.
 @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
-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
@@ -1975,11 +1980,15 @@ list address instead.
 
 @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,
@@ -2012,19 +2021,20 @@ posts in that group will be sent to @code{some.group.name}.
 
 @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
-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
@@ -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}).
 
-Here's an example group parameter list:
-
-@example
-((to-address . "ding@@gnus.org")
- (auto-expire . t))
-@end example
-
 
 @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.
-* 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
@@ -16177,7 +16180,7 @@ Emphasized text can be properly fontisized:
 @node Quassia Gnus
 @subsubsection Quassia Gnus
 
-New features in Gnus 5.6.1.7:
+New features in Gnus 5.6.2.7:
 
 @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 "")
-                ((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,
index 5cda811..be8d4ec 100644 (file)
@@ -1,7 +1,7 @@
 \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
@@ -42,7 +42,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Message 5.6.1 Manual
+@title Message 5.6.2 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -83,7 +83,7 @@ Message mode buffers.
 * 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.