*** pub/qgnus/lisp/gnus-eform.el Sat Mar 7 23:57:13 1998 --- qgnus/lisp/gnus-eform.el Sun Mar 8 14:01:35 1998 *************** *** 48,53 **** --- 48,54 ---- ;;; Internal variables + (defvar gnus-edit-form-buffer "*Gnus edit form*") (defvar gnus-edit-form-done-function nil) (defvar gnus-edit-form-mode-map nil) *** pub/qgnus/lisp/gnus-picon.el Sat Mar 7 17:14:35 1998 --- qgnus/lisp/gnus-picon.el Sun Mar 8 14:01:35 1998 *************** *** 184,190 **** (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)))) (defun gnus-picons-buffer-name () (cond ((or (stringp gnus-picons-display-where) --- 184,191 ---- (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 ! (cdr (assq variable gnus-window-to-buffer)))))) (defun gnus-picons-buffer-name () (cond ((or (stringp gnus-picons-display-where) *** pub/qgnus/lisp/gnus-sum.el Sat Mar 7 17:14:41 1998 --- qgnus/lisp/gnus-sum.el Sun Mar 8 14:01:41 1998 *************** *** 2594,2601 **** (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)))))))) --- 2594,2599 ---- *** pub/qgnus/lisp/gnus-win.el Sat Mar 7 17:14:42 1998 --- qgnus/lisp/gnus-win.el Sun Mar 8 14:01:42 1998 *************** *** 268,278 **** (defvar gnus-frame-list nil) (defun gnus-window-to-buffer-helper (obj) ! (if (symbolp obj) ! (if (boundp obj) ! (symbol-value obj) ! (funcall obj)) ! obj)) (defun gnus-configure-frame (split &optional window) "Split WINDOW according to SPLIT." --- 268,281 ---- (defvar gnus-frame-list nil) (defun gnus-window-to-buffer-helper (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." *** pub/qgnus/lisp/gnus.el Sat Mar 7 23:57:14 1998 --- qgnus/lisp/gnus.el Sun Mar 8 14:01:44 1998 *************** *** 246,252 **** :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "5.6.1" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) --- 246,252 ---- :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (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,1380 **** (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.") --- 1374,1379 ---- *** pub/qgnus/lisp/nndraft.el Sat Feb 14 19:27:54 1998 --- qgnus/lisp/nndraft.el Sun Mar 8 14:01:44 1998 *************** *** 125,131 **** "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 "lines") (let ((gnus-verbose-backends nil)) (nndraft-request-expire-articles (list article) group server t)) --- 125,131 ---- "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 "xref") (message-remove-header "lines") (let ((gnus-verbose-backends nil)) (nndraft-request-expire-articles (list article) group server t)) *** pub/qgnus/lisp/nntp.el Sat Mar 7 23:57:15 1998 --- qgnus/lisp/nntp.el Sun Mar 8 14:01:44 1998 *************** *** 245,252 **** (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")) (when (looking-at "480") (nntp-handle-authinfo process)) (nntp-accept-process-output process) --- 245,253 ---- (save-excursion (set-buffer (process-buffer process)) (goto-char (point-min)) ! (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) *** pub/qgnus/lisp/ChangeLog Sat Mar 7 23:57:12 1998 --- qgnus/lisp/ChangeLog Sun Mar 8 14:01:34 1998 *************** *** 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. *** pub/qgnus/texi/gnus.texi Sat Mar 7 23:57:20 1998 --- qgnus/texi/gnus.texi Sun Mar 8 14:01:53 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.6.1 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.6.2 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 316,322 **** @tex @titlepage ! @title Gnus 5.6.1 Manual @author by Lars Magne Ingebrigtsen @page --- 316,322 ---- @tex @titlepage ! @title Gnus 5.6.2 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 352,358 **** 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. @end ifinfo --- 352,358 ---- spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Gnus 5.6.2. @end ifinfo *************** *** 1281,1297 **** ((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 --- 1281,1286 ---- *************** *** 1952,1970 **** @section Group Parameters @cindex group parameters ! The group parameters store information local to a particular group: @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. 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 --- 1941,1975 ---- @section Group Parameters @cindex group parameters ! 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 ! 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,1985 **** @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}. 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, --- 1980,1994 ---- @item to-list @cindex to-list ! 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,2030 **** @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. @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} @item auto-expire @cindex auto-expire --- 2021,2040 ---- @item newsgroup @cindex newsgroup ! 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 @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,2118 **** 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 --- 2116,2121 ---- *************** *** 15642,15648 **** * 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. @end menu These lists are, of course, just @emph{short} overviews of the --- 15645,15651 ---- * 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.2.7. @end menu These lists are, of course, just @emph{short} overviews of the *************** *** 16177,16183 **** @node Quassia Gnus @subsubsection Quassia Gnus ! New features in Gnus 5.6.1.7: @itemize @bullet --- 16180,16186 ---- @node Quassia Gnus @subsubsection Quassia Gnus ! New features in Gnus 5.6.2.7: @itemize @bullet *************** *** 19024,19030 **** ("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"))) @end example The first element is the @dfn{group name}---as Gnus knows the group, --- 19027,19033 ---- ("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"))) @end example The first element is the @dfn{group name}---as Gnus knows the group, *** pub/qgnus/texi/message.texi Sat Mar 7 23:57:21 1998 --- qgnus/texi/message.texi Sun Mar 8 14:01:54 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 5.6.1 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 5.6.2 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 42,48 **** @tex @titlepage ! @title Message 5.6.1 Manual @author by Lars Magne Ingebrigtsen @page --- 42,48 ---- @tex @titlepage ! @title Message 5.6.2 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 83,89 **** * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 5.6.1. Message is distributed with the Gnus distribution bearing the same version number as this manual has. --- 83,89 ---- * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 5.6.2. Message is distributed with the Gnus distribution bearing the same version number as this manual has. *** pub/qgnus/texi/ChangeLog Sat Mar 7 23:57:21 1998 --- qgnus/texi/ChangeLog Sun Mar 8 14:01:54 1998 *************** *** 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