*** pub/rgnus/lisp/gnus-art.el Wed Jun 18 17:31:41 1997 --- rgnus/lisp/gnus-art.el Sun Jun 29 21:44:30 1997 *************** *** 981,988 **** (while (re-search-forward "^- " nil t) (gnus-article-hide-text-type (match-beginning 0) (match-end 0) 'pgp)) ! (widen))) ! (run-hooks 'gnus-article-hide-pgp-hook))))) (defun article-hide-pem (&optional arg) "Toggle hiding of any PEM headers and signatures in the current article. --- 981,988 ---- (while (re-search-forward "^- " nil t) (gnus-article-hide-text-type (match-beginning 0) (match-end 0) 'pgp)) ! (widen)) ! (run-hooks 'gnus-article-hide-pgp-hook)))))) (defun article-hide-pem (&optional arg) "Toggle hiding of any PEM headers and signatures in the current article. *** pub/rgnus/lisp/gnus-salt.el Wed Jun 18 01:16:35 1997 --- rgnus/lisp/gnus-salt.el Sun Jun 29 21:44:30 1997 *************** *** 34,55 **** (defvar gnus-pick-mode nil "Minor mode for providing a pick-and-read interface in Gnus summary buffers.") ! (defvar gnus-pick-display-summary nil ! "*Display summary while reading.") ! (defvar gnus-pick-mode-hook nil ! "Hook run in summary pick mode buffers.") ! ! (defvar gnus-mark-unpicked-articles-as-read nil ! "*If non-nil, mark all unpicked articles as read.") ! ! (defvar gnus-pick-elegant-flow t ! "If non-nil, gnus-pick-start-reading will run gnus-summary-next-group when no articles have been picked.") ! ! (defvar gnus-summary-pick-line-format "%-5P %U\%R\%z\%I\%(%[%4L: %-20,20n%]%) %s\n" "*The format specification of the lines in pick buffers. ! It accepts the same format specs that `gnus-summary-line-format' does.") ;;; Internal variables. --- 34,65 ---- (defvar gnus-pick-mode nil "Minor mode for providing a pick-and-read interface in Gnus summary buffers.") ! (defcustom gnus-pick-display-summary nil ! "*Display summary while reading." ! :type 'boolean ! :group 'gnus-summary-pick) ! ! (defcustom gnus-pick-mode-hook nil ! "Hook run in summary pick mode buffers." ! :type 'hook ! :group 'gnus-summary-pick) ! ! (defcustom gnus-mark-unpicked-articles-as-read nil ! "*If non-nil, mark all unpicked articles as read." ! :type 'boolean ! :group 'gnus-summary-pick) ! ! (defcustom gnus-pick-elegant-flow t ! "If non-nil, gnus-pick-start-reading will run gnus-summary-next-group when no articles have been picked." ! :type 'boolean ! :group 'gnus-summary-pick) ! (defcustom gnus-summary-pick-line-format "%-5P %U\%R\%z\%I\%(%[%4L: %-20,20n%]%) %s\n" "*The format specification of the lines in pick buffers. ! It accepts the same format specs that `gnus-summary-line-format' does." ! :type 'string ! :group 'gnus-summary-pick) ;;; Internal variables. *************** *** 350,365 **** ;;; gnus-tree-mode ;;; ! (defvar gnus-tree-line-format "%(%[%3,3n%]%)" ! "Format of tree elements.") ! (defvar gnus-tree-minimize-window t "If non-nil, minimize the tree buffer window. If a number, never let the tree buffer grow taller than that number of ! lines.") ! ! (defvar gnus-selected-tree-face 'modeline ! "*Face used for highlighting selected articles in the thread tree.") (defvar gnus-tree-brackets '((?\[ . ?\]) (?\( . ?\)) (?\{ . ?\}) (?< . ?>)) --- 360,381 ---- ;;; gnus-tree-mode ;;; ! (defcustom gnus-tree-line-format "%(%[%3,3n%]%)" ! "Format of tree elements." ! :type 'string ! :group 'gnus-summary-tree) ! (defcustom gnus-tree-minimize-window t "If non-nil, minimize the tree buffer window. If a number, never let the tree buffer grow taller than that number of ! lines." ! :type 'boolean ! :group 'gnus-summary-tree) ! ! (defcustom gnus-selected-tree-face 'modeline ! "*Face used for highlighting selected articles in the thread tree." ! :type 'face ! :group 'gnus-summary-tree) (defvar gnus-tree-brackets '((?\[ . ?\]) (?\( . ?\)) (?\{ . ?\}) (?< . ?>)) *************** *** 368,383 **** (defvar gnus-tree-parent-child-edges '(?- ?\\ ?|) "Characters used to connect parents with children.") ! (defvar gnus-tree-mode-line-format "Gnus: %%b %S %Z" ! "*The format specification for the tree mode line.") ! (defvar gnus-generate-tree-function 'gnus-generate-vertical-tree "*Function for generating a thread tree. Two predefined functions are available: ! `gnus-generate-horizontal-tree' and `gnus-generate-vertical-tree'.") ! ! (defvar gnus-tree-mode-hook nil ! "*Hook run in tree mode buffers.") ;;; Internal variables. --- 384,407 ---- (defvar gnus-tree-parent-child-edges '(?- ?\\ ?|) "Characters used to connect parents with children.") ! (defcustom gnus-tree-mode-line-format "Gnus: %%b %S %Z" ! "*The format specification for the tree mode line." ! :type 'string ! :group 'gnus-summary-tree) ! (defcustom gnus-generate-tree-function 'gnus-generate-vertical-tree "*Function for generating a thread tree. Two predefined functions are available: ! `gnus-generate-horizontal-tree' and `gnus-generate-vertical-tree'." ! :type '(radio (function-item gnus-generate-vertical-tree) ! (function-item gnus-generate-horizontal-tree) ! (function :tag "Other" nil)) ! :group 'gnus-summary-tree) ! ! (defcustom gnus-tree-mode-hook nil ! "*Hook run in tree mode buffers." ! :type 'hook ! :group 'gnus-summary-tree) ;;; Internal variables. *************** *** 410,415 **** --- 434,440 ---- "\r" gnus-tree-select-article gnus-mouse-2 gnus-tree-pick-article "\C-?" gnus-tree-read-summary-keys + "h" gnus-tree-show-summary "\C-c\C-i" gnus-info-find-node) *************** *** 460,465 **** --- 485,498 ---- (goto-char (or (gnus-overlay-end gnus-selected-tree-overlay) 1))) (gnus-tree-minimize)))) + (defun gnus-tree-show-summary () + "Reconfigure windows to show summary buffer." + (interactive) + (if (not (gnus-buffer-live-p gnus-summary-buffer)) + (error "There is no summary buffer for this tree buffer") + (gnus-configure-windows 'article) + (gnus-summary-goto-subject gnus-current-article))) + (defun gnus-tree-select-article (article) "Select the article under point, if any." (interactive (list (gnus-tree-article-number))) *************** *** 646,652 **** "Generate a horizontal tree." (let* ((dummy (stringp (car thread))) (do (or dummy ! (memq (mail-header-number (car thread)) gnus-tmp-limit))) col beg) (if (not do) ;; We don't want this article. --- 679,687 ---- "Generate a horizontal tree." (let* ((dummy (stringp (car thread))) (do (or dummy ! (and (car thread) ! (memq (mail-header-number (car thread)) ! gnus-tmp-limit)))) col beg) (if (not do) ;; We don't want this article. *************** *** 718,730 **** (delete-char -1) (insert (cadr gnus-tree-parent-child-edges)) (setq beg (point)) ;; Draw "-" lines leftwards. ! (while (progn ! (unless (bolp) ! (forward-char -2)) ! (= (following-char) ? )) ! (delete-char 1) ! (insert (car gnus-tree-parent-child-edges))) (goto-char beg) (gnus-tree-forward-line 1))) (setq dummyp nil) --- 753,764 ---- (delete-char -1) (insert (cadr gnus-tree-parent-child-edges)) (setq beg (point)) + (forward-char -1) ;; Draw "-" lines leftwards. ! (while (= (char-after (1- (point))) ? ) ! (delete-char -1) ! (insert (car gnus-tree-parent-child-edges)) ! (forward-char -1)) (goto-char beg) (gnus-tree-forward-line 1))) (setq dummyp nil) *** pub/rgnus/lisp/gnus-start.el Wed Jun 18 01:16:36 1997 --- rgnus/lisp/gnus-start.el Sun Jun 29 21:44:31 1997 *************** *** 1284,1295 **** "Alter the ACTIVE info for GROUP to reflect the articles in the cache." (when gnus-cache-active-hashtb (let ((cache-active (gnus-gethash group gnus-cache-active-hashtb))) ! (and cache-active ! (< (car cache-active) (car active)) ! (setcar active (car cache-active))) ! (and cache-active ! (> (cdr cache-active) (cdr active)) ! (setcdr active (cdr cache-active))))))) (defun gnus-activate-group (group &optional scan dont-check method) ;; Check whether a group has been activated or not. --- 1284,1294 ---- "Alter the ACTIVE info for GROUP to reflect the articles in the cache." (when gnus-cache-active-hashtb (let ((cache-active (gnus-gethash group gnus-cache-active-hashtb))) ! (when cache-active ! (when (< (car cache-active) (car active)) ! (setcar active (car cache-active))) ! (when (> (cdr cache-active) (cdr active)) ! (setcdr active (cdr cache-active)))))))) (defun gnus-activate-group (group &optional scan dont-check method) ;; Check whether a group has been activated or not. *************** *** 1309,1315 **** (inline (gnus-request-group group dont-check method)) (error nil) (quit nil)) ! (gnus-set-active group (setq active (gnus-parse-active))) ;; Return the new active info. active))) --- 1308,1322 ---- (inline (gnus-request-group group dont-check method)) (error nil) (quit nil)) ! (setq active (gnus-parse-active)) ! ;; If there are no articles in the group, the GROUP ! ;; command may have responded with the `(0 . 0)'. We ! ;; ignore this if we already have an active entry ! ;; for the group. ! (unless (and (zerop (car active)) ! (zerop (cdr active)) ! (gnus-active group)) ! (gnus-set-active group active)) ;; Return the new active info. active))) *** pub/rgnus/lisp/gnus-sum.el Wed Jun 18 17:31:42 1997 --- rgnus/lisp/gnus-sum.el Sun Jun 29 21:44:32 1997 *************** *** 3826,3831 **** --- 3826,3835 ---- (set var (delq article (symbol-value var)))))) ;; Adjust assocs. ((memq mark uncompressed) + (when (not (listp (car (symbol-value var))))) + (set var (list (symbol-value var))) + (when (not (listp (cdr articles))) + (setq articles (list articles))) (while articles (when (or (not (consp (setq article (pop articles)))) (< (car article) min) *************** *** 6341,6346 **** --- 6345,6351 ---- (gnus-mark-article-hook nil) ;Inhibit marking as read. (gnus-use-article-prefetch nil) (gnus-xmas-force-redisplay nil) ;Inhibit XEmacs redisplay. + (gnus-use-trees nil) ;Inhibit updating tree buffer. (sum (current-buffer)) (found nil) point) *** pub/rgnus/lisp/gnus-uu.el Thu Mar 13 00:29:04 1997 --- rgnus/lisp/gnus-uu.el Sun Jun 29 21:44:32 1997 *************** *** 1777,1783 **** This may not be smart, as no other decoder I have seen are able to follow threads when collecting uuencoded articles. (Well, I have seen one package that does that - gnus-uu, but somehow, I don't think that ! counts...) Default is nil." :group 'gnus-extract-post :type 'boolean) --- 1777,1783 ---- This may not be smart, as no other decoder I have seen are able to follow threads when collecting uuencoded articles. (Well, I have seen one package that does that - gnus-uu, but somehow, I don't think that ! counts...) The default is nil." :group 'gnus-extract-post :type 'boolean) *************** *** 1876,1903 **** (setq file-name gnus-uu-post-inserted-file-name) (setq file-name (gnus-uu-post-insert-binary))) ! (if gnus-uu-post-threaded ! (let ((message-required-news-headers ! (if (memq 'Message-ID message-required-news-headers) ! message-required-news-headers ! (cons 'Message-ID message-required-news-headers))) ! gnus-inews-article-hook) ! ! (setq gnus-inews-article-hook (if (listp gnus-inews-article-hook) ! gnus-inews-article-hook ! (list gnus-inews-article-hook))) ! (push ! '(lambda () ! (save-excursion ! (goto-char (point-min)) ! (if (re-search-forward "^Message-ID: \\(.*\\)$" nil t) ! (setq gnus-uu-post-message-id ! (buffer-substring ! (match-beginning 1) (match-end 1))) ! (setq gnus-uu-post-message-id nil)))) ! gnus-inews-article-hook) ! (gnus-uu-post-encoded file-name t)) ! (gnus-uu-post-encoded file-name nil))) (setq gnus-uu-post-inserted-file-name nil) (when gnus-uu-winconf-post-news (set-window-configuration gnus-uu-winconf-post-news))) --- 1876,1882 ---- (setq file-name gnus-uu-post-inserted-file-name) (setq file-name (gnus-uu-post-insert-binary))) ! (gnus-uu-post-encoded file-name gnus-uu-post-threaded)) (setq gnus-uu-post-inserted-file-name nil) (when gnus-uu-winconf-post-news (set-window-configuration gnus-uu-winconf-post-news))) *************** *** 1964,1975 **** (goto-char (point-min)) (setq length (count-lines 1 (point-max))) (setq parts (/ length gnus-uu-post-length)) ! (when (not (< (% length gnus-uu-post-length) 4)) ! (setq parts (1+ parts)))) (when gnus-uu-post-separate-description (forward-line -1)) ! (kill-region (point) (point-max)) (goto-char (point-min)) (re-search-forward --- 1943,1954 ---- (goto-char (point-min)) (setq length (count-lines 1 (point-max))) (setq parts (/ length gnus-uu-post-length)) ! (unless (< (% length gnus-uu-post-length) 4) ! (incf parts))) (when gnus-uu-post-separate-description (forward-line -1)) ! (delete-region (point) (point-max)) (goto-char (point-min)) (re-search-forward *************** *** 1978,1989 **** (setq header (buffer-substring 1 (point))) (goto-char (point-min)) ! (if (not gnus-uu-post-separate-description) ! () ! (when (and (not threaded) (re-search-forward "^Subject: " nil t)) (end-of-line) (insert (format " (0/%d)" parts))) ! (message-send)) (save-excursion (setq i 1) --- 1957,1969 ---- (setq header (buffer-substring 1 (point))) (goto-char (point-min)) ! (when gnus-uu-post-separate-description ! (when (re-search-forward "^Subject: " nil t) (end-of-line) (insert (format " (0/%d)" parts))) ! (save-excursion ! (message-send)) ! (setq gnus-uu-post-message-id (message-fetch-field "message-id"))) (save-excursion (setq i 1) *************** *** 1993,1999 **** (erase-buffer) (insert header) (when (and threaded gnus-uu-post-message-id) ! (insert (format "References: %s\n" gnus-uu-post-message-id))) (insert separator) (setq whole-len (- 62 (length (format top-string "" file-name i parts "")))) --- 1973,1979 ---- (erase-buffer) (insert header) (when (and threaded gnus-uu-post-message-id) ! (insert "References: " gnus-uu-post-message-id "\n")) (insert separator) (setq whole-len (- 62 (length (format top-string "" file-name i parts "")))) *************** *** 2008,2022 **** (if (= 0 (% whole-len 2)) (1- minlen) minlen) ?-))) (goto-char (point-min)) ! (if (not (re-search-forward "^Subject: " nil t)) ! () ! (if (not threaded) ! (progn ! (end-of-line) ! (insert (format " (%d/%d)" i parts))) ! (when (or (and (= i 2) gnus-uu-post-separate-description) ! (and (= i 1) (not gnus-uu-post-separate-description))) ! (replace-match "Subject: Re: ")))) (goto-char (point-max)) (save-excursion --- 1988,1996 ---- (if (= 0 (% whole-len 2)) (1- minlen) minlen) ?-))) (goto-char (point-min)) ! (when (re-search-forward "^Subject: " nil t) ! (end-of-line) ! (insert (format " (%d/%d)" i parts))) (goto-char (point-max)) (save-excursion *************** *** 2029,2038 **** (forward-line -4)) (setq end (point))) (insert-buffer-substring uubuf beg end) ! (insert beg-line) ! (insert "\n") (setq beg end) ! (setq i (1+ i)) (goto-char (point-min)) (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$") nil t) --- 2003,2011 ---- (forward-line -4)) (setq end (point))) (insert-buffer-substring uubuf beg end) ! (insert beg-line "\n") (setq beg end) ! (incf i) (goto-char (point-min)) (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$") nil t) *************** *** 2046,2057 **** (insert beg-line) (insert "\n") (let (message-sent-message-via) ! (message-send)))) ! (when (setq buf (get-buffer send-buffer-name)) ! (kill-buffer buf)) ! (when (setq buf (get-buffer encoded-buffer-name)) ! (kill-buffer buf)) (when (not gnus-uu-post-separate-description) (set-buffer-modified-p nil) --- 2019,2032 ---- (insert beg-line) (insert "\n") (let (message-sent-message-via) ! (save-excursion ! (message-send)) ! (setq gnus-uu-post-message-id ! (concat (message-fetch-field "references") " " ! (message-fetch-field "message-id")))))) ! (gnus-kill-buffer send-buffer-name) ! (gnus-kill-buffer encoded-buffer-name) (when (not gnus-uu-post-separate-description) (set-buffer-modified-p nil) *** pub/rgnus/lisp/gnus.el Wed Jun 18 17:31:43 1997 --- rgnus/lisp/gnus.el Sun Jun 29 21:44:33 1997 *************** *** 143,148 **** --- 143,160 ---- :link '(custom-manual "(gnus)Various Summary Stuff") :group 'gnus-summary) + (defgroup gnus-summary-pick nil + "Pick mode in the summary buffer." + :link '(custom-manual "(gnus)Pick and Read") + :prefix "gnus-pick-" + :group 'gnus-summary) + + (defgroup gnus-summary-tree nil + "Tree display of threads in the summary buffer." + :link '(custom-manual "(gnus)Tree Display") + :prefix "gnus-tree-" + :group 'gnus-summary) + ;; Belongs to gnus-uu.el (defgroup gnus-extract-view nil "Viewing extracted files." *************** *** 226,232 **** :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "5.4.59" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) --- 238,244 ---- :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "5.4.60" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) *** pub/rgnus/lisp/message.el Wed Jun 18 01:16:38 1997 --- rgnus/lisp/message.el Sun Jun 29 21:44:33 1997 *************** *** 2972,2978 **** (concat (file-name-as-directory message-autosave-directory) "msg." (nnheader-replace-chars-in-string ! (buffer-name) ?* ?.)))))) (setq buffer-auto-save-file-name (save-excursion (prog1 --- 2972,2980 ---- (concat (file-name-as-directory message-autosave-directory) "msg." (nnheader-replace-chars-in-string ! (nnheader-replace-chars-in-string ! (buffer-name) ?* ?.) ! ?/ ?-)))))) (setq buffer-auto-save-file-name (save-excursion (prog1 *** pub/rgnus/lisp/nnfolder.el Sun May 18 07:37:37 1997 --- rgnus/lisp/nnfolder.el Sun Jun 29 21:44:34 1997 *************** *** 763,768 **** --- 763,769 ---- "Save the buffer." (when (buffer-modified-p) (run-hooks 'nnfolder-save-buffer-hook) + (gnus-make-directory (file-name-directory (buffer-file-name))) (save-buffer))) (provide 'nnfolder) *** pub/rgnus/lisp/nnml.el Sat May 24 12:51:15 1997 --- rgnus/lisp/nnml.el Sun Jun 29 21:44:34 1997 *************** *** 759,766 **** (search-forward "\n\n" nil t) (setq chars (- (point-max) (point))) (max 1 (1- (point))))) ! (when (and (not (= 0 chars)) ; none of them empty files... ! (not (= (point-min) (point-max)))) (goto-char (point-min)) (setq headers (nnml-parse-head chars (caar files))) (save-excursion --- 759,765 ---- (search-forward "\n\n" nil t) (setq chars (- (point-max) (point))) (max 1 (1- (point))))) ! (unless (zerop (buffer-size)) (goto-char (point-min)) (setq headers (nnml-parse-head chars (caar files))) (save-excursion *** pub/rgnus/lisp/ChangeLog Wed Jun 18 17:31:40 1997 --- rgnus/lisp/ChangeLog Sun Jun 29 21:44:29 1997 *************** *** 1,3 **** --- 1,59 ---- + Sun Jun 29 21:32:13 1997 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.4.60 is released. + + Sun Jun 29 21:14:27 1997 Hrvoje Niksic + + * gnus-salt.el: Customized. + + 1997-06-27 Hrvoje Niksic + + * gnus-salt.el (gnus-tree-show-summary): New function. + (gnus-tree-mode-map): Use it. + + Sun Jun 29 20:19:27 1997 Lars Magne Ingebrigtsen + + * gnus-salt.el (gnus-generate-horizontal-tree): Protect against + nil threads. + + * gnus-sum.el (gnus-adjust-marked-articles): Change. + + Sun Jun 29 20:19:03 1997 Scott Byer + + * gnus-sum.el (gnus-adjust-marked-articles): Improper lists. + + 1997-06-24 Hrvoje Niksic + + * gnus-sum.el (gnus-summary-search-article): Inhibit updating tree + buffer. + + Sun Jun 29 19:36:48 1997 Lars Magne Ingebrigtsen + + * gnus-start.el (gnus-activate-group): Ignore zero returns. + + * gnus-salt.el (gnus-generate-vertical-tree): Use a safer + line-drawing algorithm. + + * nnml.el (nnml-generate-nov-file): Articles with null bodies are + legal. + + Sun Jun 22 15:44:02 1997 Lars Magne Ingebrigtsen + + * gnus-art.el (article-hide-pgp): Only run hook when hiding pgp. + + * nnfolder.el (nnfolder-save-buffer): Make sure the directory + exists. + + * gnus-uu.el (gnus-uu-post-news-inews): Didn't work when posting + threaded. + (gnus-uu-post-encoded): Include sequence numbers in threaded + posts. + + Sat Jun 21 00:17:16 1997 Lars Magne Ingebrigtsen + + * message.el (message-set-auto-save-file-name): Translate / in + buffer names. + Wed Jun 18 17:26:35 1997 Lars Magne Ingebrigtsen * gnus.el: Gnus v5.4.59 is released. *** pub/rgnus/texi/gnus.texi Wed Jun 18 17:31:45 1997 --- rgnus/texi/gnus.texi Sun Jun 29 21:44:36 1997 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.4.59 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.4.60 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 309,315 **** @tex @titlepage ! @title Gnus 5.4.59 Manual @author by Lars Magne Ingebrigtsen @page --- 309,315 ---- @tex @titlepage ! @title Gnus 5.4.60 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 345,351 **** spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Gnus 5.4.59. @end ifinfo --- 345,351 ---- spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Gnus 5.4.60. @end ifinfo *************** *** 6754,6759 **** --- 6754,6778 ---- [Paa] @end example + If you're using horizontal trees, it might be nice to display the trees + side-by-side with the summary buffer. You could add something like the + following to your @file{.gnus.el} file: + + @lisp + (setq gnus-use-trees t + gnus-generate-tree-function 'gnus-generate-horizontal-tree + gnus-tree-minimize-window nil) + (gnus-add-configuration + '(article + (vertical 1.0 + (horizontal 0.25 + (summary 0.75 point) + (tree 1.0)) + (article 1.0)))) + @end lisp + + @xref{Windows Configuration}. + @node Mail Group Commands @section Mail Group Commands *************** *** 12835,12841 **** instead of the normal @code{1.0} top-level spec, each additional split should have a frame parameter alist as the size spec. @xref{Frame Parameters, , Frame Parameters, elisp, The GNU Emacs Lisp ! Reference Manual}. Here's a list of all possible keys for @code{gnus-buffer-configuration}: --- 12854,12862 ---- instead of the normal @code{1.0} top-level spec, each additional split should have a frame parameter alist as the size spec. @xref{Frame Parameters, , Frame Parameters, elisp, The GNU Emacs Lisp ! Reference Manual}. Under XEmacs, a frame property list will be ! accepted, too---for instance, @code{(height 5 width 15 left -1 top 1)} ! is such a plist. Here's a list of all possible keys for @code{gnus-buffer-configuration}: *** pub/rgnus/texi/message.texi Wed Jun 18 17:31:46 1997 --- rgnus/texi/message.texi Sun Jun 29 21:44:36 1997 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 5.4.59 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 5.4.60 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 39,45 **** @tex @titlepage ! @title Message 5.4.59 Manual @author by Lars Magne Ingebrigtsen @page --- 39,45 ---- @tex @titlepage ! @title Message 5.4.60 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 79,85 **** * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 5.4.59. Message is distributed with the Gnus distribution bearing the same version number as this manual has. --- 79,85 ---- * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 5.4.60. Message is distributed with the Gnus distribution bearing the same version number as this manual has. *** pub/rgnus/texi/dir Wed Jun 18 00:54:19 1997 --- rgnus/texi/dir Sun Jun 29 21:44:36 1997 *************** *** 0 **** --- 1,55 ---- + -*- Text -*- + The Gnus-realated top node. +  + File: dir Node: Top This is the Gnus Info tree + + * Menu: + + * Gnus: (gnus). The news reader Gnus. + * Message: (message). The Message sending thingamabob. + * Widget: (widget). The Widget library. + * Custom: (custom). The Custom library. + -*- Text -*- + The Gnus-realated top node. +  + File: dir Node: Top This is the Gnus Info tree + + * Menu: + + * Gnus: (gnus). The news reader Gnus. + * Message: (message). The Message sending thingamabob. + * Widget: (widget). The Widget library. + * Custom: (custom). The Custom library. + -*- Text -*- + The Gnus-realated top node. +  + File: dir Node: Top This is the Gnus Info tree + + * Menu: + + * Gnus: (gnus). The news reader Gnus. + * Message: (message). The Message sending thingamabob. + * Widget: (widget). The Widget library. + * Custom: (custom). The Custom library. + -*- Text -*- + The Gnus-realated top node. +  + File: dir Node: Top This is the Gnus Info tree + + * Menu: + + * Gnus: (gnus). The news reader Gnus. + * Message: (message). The Message sending thingamabob. + * Widget: (widget). The Widget library. + * Custom: (custom). The Custom library. + -*- Text -*- + The Gnus-realated top node. +  + File: dir Node: Top This is the Gnus Info tree + + * Menu: + + * Gnus: (gnus). The news reader Gnus. + * Message: (message). The Message sending thingamabob. + * Widget: (widget). The Widget library. + * Custom: (custom). The Custom library.