*** pub/sgnus/lisp/gnus-cache.el Sun Feb 4 19:18:05 1996 --- sgnus/lisp/gnus-cache.el Mon Feb 5 18:10:37 1996 *************** *** 133,142 **** ;; Save the article in the cache. (if (file-exists-p file) t ; The article already is saved. - (let ((gnus-use-cache nil)) - (gnus-summary-select-article)) (save-excursion ! (set-buffer gnus-original-article-buffer) (when (> (buffer-size) 0) (write-region (point-min) (point-max) file nil 'quiet) (gnus-cache-change-buffer group) --- 133,142 ---- ;; Save the article in the cache. (if (file-exists-p file) t ; The article already is saved. (save-excursion ! (set-buffer nntp-server-buffer) ! (let ((gnus-use-cache nil)) ! (gnus-request-article-this-buffer article group)) (when (> (buffer-size) 0) (write-region (point-min) (point-max) file nil 'quiet) (gnus-cache-change-buffer group) *** pub/sgnus/lisp/gnus-soup.el Sun Feb 4 19:18:08 1996 --- sgnus/lisp/gnus-soup.el Mon Feb 5 18:59:32 1996 *************** *** 260,266 **** "Enter GROUP and add all articles to a SOUP package." (let ((gnus-expert-user t) (gnus-large-newsgroup nil)) ! (when (gnus-summary-read-group group nil nil nil t) (let ((gnus-newsgroup-processable (nreverse (gnus-sorted-complement --- 260,266 ---- "Enter GROUP and add all articles to a SOUP package." (let ((gnus-expert-user t) (gnus-large-newsgroup nil)) ! (when (gnus-summary-read-group group) (let ((gnus-newsgroup-processable (nreverse (gnus-sorted-complement *** pub/sgnus/lisp/gnus-topic.el Sun Feb 4 19:18:08 1996 --- sgnus/lisp/gnus-topic.el Mon Feb 5 18:10:38 1996 *************** *** 392,397 **** --- 392,398 ---- nil)))) (defun gnus-topic-update-topic () + "Update all parent topics to the current group." (when (and (eq major-mode 'gnus-group-mode) gnus-topic-mode) (let ((group (gnus-group-group-name))) *************** *** 723,729 **** (gnus-topic-remove-topic nil t) (push (gnus-topic-find-topology topic nil nil gnus-topic-topology) gnus-topic-killed-topics)) ! (gnus-group-kill-group n discard))) (defun gnus-topic-yank-group (&optional arg) "Yank the last topic." --- 724,731 ---- (gnus-topic-remove-topic nil t) (push (gnus-topic-find-topology topic nil nil gnus-topic-topology) gnus-topic-killed-topics)) ! (gnus-group-kill-group n discard) ! (gnus-topic-update-topic))) (defun gnus-topic-yank-group (&optional arg) "Yank the last topic." *************** *** 760,766 **** (when (equal (car (cdr alist)) prev) (setcdr alist (nconc yanked (cdr alist))) (setq alist nil)) ! (setq alist (cdr alist)))))))) (defun gnus-topic-hide-topic () "Hide all subtopics under the current topic." --- 762,769 ---- (when (equal (car (cdr alist)) prev) (setcdr alist (nconc yanked (cdr alist))) (setq alist nil)) ! (setq alist (cdr alist)))))) ! (gnus-topic-update-topic))) (defun gnus-topic-hide-topic () "Hide all subtopics under the current topic." *** pub/sgnus/lisp/gnus-uu.el Sun Feb 4 19:18:10 1996 --- sgnus/lisp/gnus-uu.el Mon Feb 5 18:10:39 1996 *************** *** 41,46 **** --- 41,47 ---- ("\\.\\(wav\\|aiff\\|hcom\\|u[blw]\\|s[bfw]\\|voc\\|smp\\)$" "sox -v .5 %s -t .au -u - > /dev/audio") ("\\.au$" "cat %s > /dev/audio") + ("\\.mid?i$" "playmidi -f") ("\\.mod$" "str32") ("\\.ps$" "ghostview") ("\\.dvi$" "xdvi") *** pub/sgnus/lisp/gnus.el Sun Feb 4 19:18:13 1996 --- sgnus/lisp/gnus.el Mon Feb 5 18:59:33 1996 *************** *** 1682,1688 **** "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "September Gnus v0.35" "Version number for this version of Gnus.") (defvar gnus-info-nodes --- 1682,1688 ---- "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "September Gnus v0.36" "Version number for this version of Gnus.") (defvar gnus-info-nodes *************** *** 3271,3283 **** (select-window all-visible) ;; Either remove all windows or just remove all Gnus windows. ! (if gnus-use-full-window ! (mapcar (lambda (frame) ! (select-frame frame) ! (delete-other-windows)) ! (frame-list)) ! (gnus-remove-some-windows) ! (switch-to-buffer nntp-server-buffer)) (switch-to-buffer nntp-server-buffer) (gnus-configure-frame split (get-buffer-window (current-buffer)))))) --- 3271,3286 ---- (select-window all-visible) ;; Either remove all windows or just remove all Gnus windows. ! (let ((frame (selected-frame))) ! (unwind-protect ! (if gnus-use-full-window ! (mapcar (lambda (frame) ! (select-frame frame) ! (delete-other-windows)) ! (frame-list)) ! (gnus-remove-some-windows) ! (switch-to-buffer nntp-server-buffer)) ! (select-frame frame))) (switch-to-buffer nntp-server-buffer) (gnus-configure-frame split (get-buffer-window (current-buffer)))))) *************** *** 6557,6563 **** "l" gnus-summary-goto-last-article "\C-c\C-v\C-v" gnus-uu-decode-uu-view "\C-d" gnus-summary-enter-digest-group - "v" gnus-summary-verbose-headers "\C-c\C-b" gnus-bug "*" gnus-cache-enter-article "\M-*" gnus-cache-remove-article --- 6560,6565 ---- *************** *** 6698,6703 **** --- 6700,6706 ---- "l" gnus-summary-stop-page-breaking "r" gnus-summary-caesar-message "t" gnus-summary-toggle-header + "v" gnus-summary-verbose-headers "m" gnus-summary-toggle-mime) (gnus-define-keys *************** *** 7333,7346 **** ;; If the summary buffer is empty, but there are some low-scored ;; articles or some excluded dormants, we include these in the ;; buffer. ! (when (zerop (buffer-size)) (cond (gnus-newsgroup-dormant (gnus-summary-limit-include-dormant)) ((and gnus-newsgroup-scored show-all) (gnus-summary-limit-include-expunged)))) ;; Function `gnus-apply-kill-file' must be called in this hook. (run-hooks 'gnus-apply-kill-hook) ! (if (zerop (buffer-size)) (progn ;; This newsgroup is empty. (gnus-summary-catchup-and-exit nil t) ;Without confirmations. --- 7336,7351 ---- ;; If the summary buffer is empty, but there are some low-scored ;; articles or some excluded dormants, we include these in the ;; buffer. ! (when (and (zerop (buffer-size)) ! (not no-display)) (cond (gnus-newsgroup-dormant (gnus-summary-limit-include-dormant)) ((and gnus-newsgroup-scored show-all) (gnus-summary-limit-include-expunged)))) ;; Function `gnus-apply-kill-file' must be called in this hook. (run-hooks 'gnus-apply-kill-hook) ! (if (and (zerop (buffer-size)) ! (not no-display)) (progn ;; This newsgroup is empty. (gnus-summary-catchup-and-exit nil t) ;Without confirmations. *************** *** 7357,7362 **** --- 7362,7368 ---- (gnus-summary-hide-all-threads)) ;; Show first unread article if requested. (if (and (not no-article) + (not no-display) gnus-newsgroup-unreads gnus-auto-select-first) (if (eq gnus-auto-select-first 'best) *************** *** 9148,9159 **** (t (gnus-summary-find-next unread)))) ! (defun gnus-recenter () "Center point in window and redisplay frame. Also do horizontal recentering." (interactive) (gnus-horizontal-recenter) ! (recenter)) (defun gnus-summary-recenter () "Center point in the summary window. --- 9154,9165 ---- (t (gnus-summary-find-next unread)))) ! (defun gnus-recenter (&optional n) "Center point in window and redisplay frame. Also do horizontal recentering." (interactive) (gnus-horizontal-recenter) ! (recenter n)) (defun gnus-summary-recenter () "Center point in the summary window. *************** *** 9180,9190 **** window (min bottom (save-excursion (forward-line (- top)) (point))))) ;; Do horizontal recentering while we're at it. ! (let ((selected (selected-window))) ! (select-window (get-buffer-window (current-buffer) t)) ! (gnus-summary-position-point) ! (gnus-horizontal-recenter) ! (select-window selected))))) (defun gnus-horizontal-recenter () "Recenter the current buffer horizontally." --- 9186,9197 ---- window (min bottom (save-excursion (forward-line (- top)) (point))))) ;; Do horizontal recentering while we're at it. ! (when (get-buffer-window (current-buffer) t) ! (let ((selected (selected-window))) ! (select-window (get-buffer-window (current-buffer) t)) ! (gnus-summary-position-point) ! (gnus-horizontal-recenter) ! (select-window selected)))))) (defun gnus-horizontal-recenter () "Recenter the current buffer horizontally." *************** *** 10911,10926 **** ;; Move the article. ((eq action 'move) (gnus-request-move-article ! article ; Article to move ! gnus-newsgroup-name ; From newsgrouo (nth 1 (gnus-find-method-for-group gnus-newsgroup-name)) ; Server (list 'gnus-request-accept-article (if select-method (list 'quote select-method) to-newsgroup) ! (not articles)) ; Accept form ! (not articles))) ; Only save nov last time ;; Copy the article. ((eq action 'copy) (save-excursion --- 10918,10933 ---- ;; Move the article. ((eq action 'move) (gnus-request-move-article ! article ; Article to move ! gnus-newsgroup-name ; From newsgrouo (nth 1 (gnus-find-method-for-group gnus-newsgroup-name)) ; Server (list 'gnus-request-accept-article (if select-method (list 'quote select-method) to-newsgroup) ! (not articles)) ; Accept form ! (not articles))) ; Only save nov last time ;; Copy the article. ((eq action 'copy) (save-excursion *************** *** 10983,10996 **** (memq article gnus-newsgroup-dormant) (memq article gnus-newsgroup-unreads))) ! (while marks ! (when (memq article (symbol-value ! (intern (format "gnus-newsgroup-%s" ! (caar marks))))) ! (gnus-add-marked-articles ! (gnus-info-group info) (caar marks) ! (list to-article) info)) ! (setq marks (cdr marks))))) ;; Update the Xref header in this article to point to ;; the new crossposted article we have just created. --- 10990,11003 ---- (memq article gnus-newsgroup-dormant) (memq article gnus-newsgroup-unreads))) ! (while marks ! (when (memq article (symbol-value ! (intern (format "gnus-newsgroup-%s" ! (caar marks))))) ! (gnus-add-marked-articles ! (gnus-info-group info) (cdar marks) ! (list to-article) info)) ! (setq marks (cdr marks))))) ;; Update the Xref header in this article to point to ;; the new crossposted article we have just created. *************** *** 11009,11014 **** --- 11016,11022 ---- (gnus-summary-mark-article article gnus-canceled-mark)) (gnus-summary-remove-process-mark article)) (gnus-kill-buffer copy-buf) + (gnus-summary-position-point) (gnus-set-mode-line 'summary))) (defun gnus-summary-copy-article (&optional n to-newsgroup select-method) *************** *** 12901,12914 **** "Get an article and insert it into this buffer." (prog1 (save-excursion ! (if (get-buffer gnus-original-article-buffer) ! (set-buffer (get-buffer gnus-original-article-buffer)) ! (set-buffer (get-buffer-create gnus-original-article-buffer)) ! (buffer-disable-undo (current-buffer)) ! (setq major-mode 'gnus-original-article-mode) ! (setq buffer-read-only t) ! (gnus-add-current-to-buffer-list)) ! (setq group (or group gnus-newsgroup-name)) ;; Open server if it has closed. --- 12909,12916 ---- "Get an article and insert it into this buffer." (prog1 (save-excursion ! (erase-buffer) ! (gnus-kill-all-overlays) (setq group (or group gnus-newsgroup-name)) ;; Open server if it has closed. *************** *** 12959,12966 **** ;; We first check `gnus-original-article-buffer'. ((and (equal (car gnus-original-article) group) (eq (cdr gnus-original-article) article)) ! ;; We don't have to do anything, since it's already where we ! ;; want it. 'article) ;; Check the backlog. ((and gnus-keep-backlog --- 12961,12967 ---- ;; We first check `gnus-original-article-buffer'. ((and (equal (car gnus-original-article) group) (eq (cdr gnus-original-article) article)) ! (insert-buffer-substring gnus-original-article-buffer) 'article) ;; Check the backlog. ((and gnus-keep-backlog *************** *** 12990,13001 **** ;; Take the article from the original article buffer ;; and place it in the buffer it's supposed to be in. (setq gnus-original-article (cons group article)) ! (unless (equal (buffer-name (current-buffer)) ! (buffer-name (get-buffer gnus-original-article-buffer))) ! (let (buffer-read-only) ! (erase-buffer) ! (gnus-kill-all-overlays) ! (insert-buffer-substring gnus-original-article-buffer))) ;; Update sparse articles. (when (memq article gnus-newsgroup-sparse) --- 12991,13009 ---- ;; Take the article from the original article buffer ;; and place it in the buffer it's supposed to be in. (setq gnus-original-article (cons group article)) ! (when (equal (buffer-name (current-buffer)) ! (buffer-name (get-buffer gnus-article-buffer))) ! (save-excursion ! (if (get-buffer gnus-original-article-buffer) ! (set-buffer (get-buffer gnus-original-article-buffer)) ! (set-buffer (get-buffer-create gnus-original-article-buffer)) ! (buffer-disable-undo (current-buffer)) ! (setq major-mode 'gnus-original-article-mode) ! (setq buffer-read-only t) ! (gnus-add-current-to-buffer-list)) ! (let (buffer-read-only) ! (erase-buffer) ! (insert-buffer-substring gnus-article-buffer)))) ;; Update sparse articles. (when (memq article gnus-newsgroup-sparse) *** pub/sgnus/lisp/nnfolder.el Sun Feb 4 19:18:13 1996 --- sgnus/lisp/nnfolder.el Mon Feb 5 18:10:46 1996 *************** *** 38,44 **** (eval-when-compile (require 'cl)) (defvar nnfolder-directory (expand-file-name "~/Mail/") ! "The name of the mail box file in the users home directory.") (defvar nnfolder-active-file (concat (file-name-as-directory nnfolder-directory) "active") --- 38,44 ---- (eval-when-compile (require 'cl)) (defvar nnfolder-directory (expand-file-name "~/Mail/") ! "The name of the nnfolder directory.") (defvar nnfolder-active-file (concat (file-name-as-directory nnfolder-directory) "active") *** pub/sgnus/lisp/nnmail.el Sun Feb 4 19:18:13 1996 --- sgnus/lisp/nnmail.el Mon Feb 5 18:10:47 1996 *************** *** 320,326 **** (error 0))))) (defun nnmail-time-since (time) ! "Return the time since DATE." (let* ((current (current-time)) rest) (when (stringp time) --- 320,326 ---- (error 0))))) (defun nnmail-time-since (time) ! "Return the time since TIME, which is either an internal time or a date." (let* ((current (current-time)) rest) (when (stringp time) *** pub/sgnus/lisp/nnvirtual.el Sun Feb 4 19:18:14 1996 --- sgnus/lisp/nnvirtual.el Mon Feb 5 19:14:13 1996 *************** *** 33,38 **** --- 33,39 ---- (require 'nntp) (require 'nnheader) (require 'gnus) + (eval-when-compile (require 'cl)) (defvar nnvirtual-always-rescan nil "*If non-nil, always scan groups for unread articles when entering a group. *************** *** 345,364 **** type list calist mart cgroups) (while mark-lists (setq type (cdar mark-lists)) ! (when (setq list (symbol-value (intern (format "gnus-newsgroup-%s" ! (car (pop mark-lists)))))) ! (setq cgroups ! (mapcar (lambda (g) (list g)) nnvirtual-component-groups)) ! (while list ! (nconc (assoc (cadr (setq mart (assq (pop list) nnvirtual-mapping))) ! cgroups) ! (list (caddr mart)))) ! (while cgroups ! (when (cdar cgroups) ! (gnus-add-marked-articles ! (caar cgroups) type (cdar cgroups) nil t) ! (gnus-group-update-group (caar cgroups) t)) ! (setq cgroups (cdr cgroups))))))) (defun nnvirtual-marks (article marks) "Return a list of mark types for ARTICLE." --- 346,363 ---- type list calist mart cgroups) (while mark-lists (setq type (cdar mark-lists)) ! (setq list (symbol-value (intern (format "gnus-newsgroup-%s" ! (car (pop mark-lists)))))) ! (setq cgroups ! (mapcar (lambda (g) (list g)) nnvirtual-component-groups)) ! (while list ! (nconc (assoc (cadr (setq mart (assq (pop list) nnvirtual-mapping))) ! cgroups) ! (list (caddr mart)))) ! (while cgroups ! (gnus-add-marked-articles ! (caar cgroups) type (cdar cgroups) nil t) ! (gnus-group-update-group (car (pop cgroups)) t))))) (defun nnvirtual-marks (article marks) "Return a list of mark types for ARTICLE." *** pub/sgnus/lisp/ChangeLog Sun Feb 4 19:18:19 1996 --- sgnus/lisp/ChangeLog Mon Feb 5 19:08:00 1996 *************** *** 1,3 **** --- 1,39 ---- + Mon Feb 5 17:54:07 1996 Lars Magne Ingebrigtsen + + * nnvirtual.el (nnvirtual-update-marked): Copy empty mark lists. + + * gnus.el (gnus-summary-read-group): Allow entry with no-display. + + Sat Feb 3 11:56:53 1996 Steven L. Baur + + * gnus-uu.el (gnus-uu-default-view-rules): Added rule for playing of + decoded midi files. + + Mon Feb 5 05:08:54 1996 Lars Ingebrigtsen + + * gnus.el (gnus-summary-mode-map): Move `v' to `W v'. + + * gnus-cache.el (gnus-cache-possibly-enter-article): Request the + buffer to the nntp buffer. + + * gnus.el (gnus-recenter): Allow a prefix. + + Mon Feb 5 04:56:35 1996 Michael Cook + + * gnus.el (gnus-configure-windows): Return to the original frame. + + Mon Feb 5 03:49:34 1996 Lars Ingebrigtsen + + * gnus-topic.el (gnus-topic-kill-group): Update topics. + (gnus-topic-yank-group): Ditto. + + * nnfolder.el (nnfolder-directory): Doc fix. + + * gnus.el (gnus-summary-move-article): Add marks when moving + articles. + (gnus-summary-recenter): Don't do horizontal recenter unless the + buffer is visible. + Sun Feb 4 16:22:20 1996 Lars Magne Ingebrigtsen * gnus.el (gnus-summary-edit-article): Make sure we're in the *** pub/sgnus/texi/gnus.texi Sun Feb 4 19:18:22 1996 --- sgnus/texi/gnus.texi Mon Feb 5 18:10:51 1996 *************** *** 7931,7936 **** --- 7931,7942 ---- Toggle whether to display all headers in the article buffer (@code{gnus-summary-toggle-header}). + @item W v + @kindex W v (Summary) + @findex gnus-summary-verbose-header + Toggle whether to display all headers in the article buffer permanently + (@code{gnus-summary-verbose-header}). + @item W m @kindex W m (Summary) @findex gnus-summary-toggle-mime *************** *** 8957,8963 **** * Server Buffer Format:: You can customize the look of this buffer. * Server Commands:: Commands to manipulate servers. * Example Methods:: Examples server specifications. ! * Servers ant Methods:: You can use server names as select methods. * Unavailable Servers:: Some servers you try to contact may be down. @end menu --- 8963,8969 ---- * Server Buffer Format:: You can customize the look of this buffer. * Server Commands:: Commands to manipulate servers. * Example Methods:: Examples server specifications. ! * Servers and Methods:: You can use server names as select methods. * Unavailable Servers:: Some servers you try to contact may be down. @end menu *** pub/sgnus/texi/ChangeLog Sun Feb 4 19:18:20 1996 --- sgnus/texi/ChangeLog Mon Feb 5 18:10:47 1996 *************** *** 1,3 **** --- 1,7 ---- + Mon Feb 5 05:24:01 1996 Lars Ingebrigtsen + + * gnus.texi (Article Washing): Addition. + Fri Feb 2 20:41:56 1996 Lars Ingebrigtsen * gnus.texi (Reading Mail): Addition.