From c588578fe1ae36c6d95f370b41a4d99c3e57e222 Mon Sep 17 00:00:00 2001 From: shuhei-k Date: Sun, 8 Mar 1998 19:19:09 +0000 Subject: [PATCH] Importing gnus-5.6.2 --- lisp/ChangeLog | 19 ++++++++++ lisp/gnus-eform.el | 1 + lisp/gnus-picon.el | 3 +- lisp/gnus-sum.el | 2 -- lisp/gnus-win.el | 13 ++++--- lisp/gnus.el | 3 +- lisp/nndraft.el | 2 +- lisp/nntp.el | 5 +-- texi/ChangeLog | 8 +++++ texi/gnus.texi | 99 +++++++++++++++++++++++++++------------------------- texi/message.texi | 6 ++-- 11 files changed, 97 insertions(+), 64 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8376c9d..5187062 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,22 @@ +Sun Mar 8 14:05:25 1998 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.6.2 is released. + +Sun Mar 8 00:35:09 1998 Lars Magne Ingebrigtsen + + * 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 * gnus.el: Gnus v5.6.1 is released. diff --git a/lisp/gnus-eform.el b/lisp/gnus-eform.el index c872a9a..b0ff413 100644 --- a/lisp/gnus-eform.el +++ b/lisp/gnus-eform.el @@ -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) diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el index 02a5ad0..1efc228 100644 --- 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." - (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) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 6264cd9..09a8058 100644 --- 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. - (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)))))))) diff --git a/lisp/gnus-win.el b/lisp/gnus-win.el index 6c29c5b..2d94679 100644 --- 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) - (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." diff --git a/lisp/gnus.el b/lisp/gnus.el index 15b2bc5..79d459b 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 "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.") diff --git a/lisp/nndraft.el b/lisp/nndraft.el index be653df..6bbd1fb 100644 --- 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)) - (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)) diff --git a/lisp/nntp.el b/lisp/nntp.el index 36c5ba2..8f10d3e 100644 --- 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)) - (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) diff --git a/texi/ChangeLog b/texi/ChangeLog index 15943b4..f10df33 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,11 @@ +Sun Mar 8 13:56:37 1998 James Troup + + * gnus.texi (Group Highlighting): Removed old example. + +Sun Mar 8 00:19:24 1998 Lars Magne Ingebrigtsen + + * gnus.texi (Group Info): Fix ".". + Sat Mar 7 17:09:49 1998 Lars Magne Ingebrigtsen * gnus.texi: Took direntries out again, since makeinfo doesn't diff --git a/texi/gnus.texi b/texi/gnus.texi index dcc40e1..350be7d 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -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, diff --git a/texi/message.texi b/texi/message.texi index 5cda811..be8d4ec 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -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. -- 1.7.10.4