*** pub/qgnus/lisp/gnus-agent.el Sun Nov 23 16:26:33 1997 --- qgnus/lisp/gnus-agent.el Mon Nov 24 18:51:45 1997 *************** *** 378,384 **** the mark instead. The difference between N and the actual number of articles marked is returned." (interactive "p") - (gnus-set-global-variables) (let ((backward (< n 0)) (n (abs n))) (while (and --- 378,383 ---- *************** *** 399,405 **** If N is negative, unmark backward instead. The difference between N and the actual number of articles unmarked is returned." (interactive "p") - (gnus-set-global-variables) (gnus-agent-mark-article n t)) (defun gnus-agent-toggle-mark (n) --- 398,403 ---- *************** *** 407,413 **** If N is negative, toggle backward instead. The difference between N and the actual number of articles toggled is returned." (interactive "p") - (gnus-set-global-variables) (gnus-agent-mark-article n 'toggle)) (defun gnus-summary-set-agent-mark (article &optional unmark) --- 405,410 ---- *** pub/qgnus/lisp/gnus-art.el Sun Nov 23 16:26:35 1997 --- qgnus/lisp/gnus-art.el Mon Nov 24 18:51:47 1997 *************** *** 1579,1585 **** Optional argument FILENAME specifies file name. Directory to save to is default to `gnus-article-save-directory'." (interactive) - (gnus-set-global-variables) (setq filename (gnus-read-save-file-name "Save %s in rmail file:" filename gnus-rmail-save-name gnus-newsgroup-name --- 1579,1584 ---- *************** *** 1595,1601 **** Optional argument FILENAME specifies file name. Directory to save to is default to `gnus-article-save-directory'." (interactive) - (gnus-set-global-variables) (setq filename (gnus-read-save-file-name "Save %s in Unix mail file:" filename gnus-mail-save-name gnus-newsgroup-name --- 1594,1599 ---- *************** *** 1614,1620 **** Optional argument FILENAME specifies file name. Directory to save to is default to `gnus-article-save-directory'." (interactive) - (gnus-set-global-variables) (setq filename (gnus-read-save-file-name "Save %s in file:" filename gnus-file-save-name gnus-newsgroup-name --- 1612,1617 ---- *************** *** 1640,1646 **** Optional argument FILENAME specifies file name. The directory to save in defaults to `gnus-article-save-directory'." (interactive) - (gnus-set-global-variables) (setq filename (gnus-read-save-file-name "Save %s body in file:" filename gnus-file-save-name gnus-newsgroup-name --- 1637,1642 ---- *************** *** 1657,1663 **** (defun gnus-summary-save-in-pipe (&optional command) "Pipe this article to subprocess." (interactive) - (gnus-set-global-variables) (setq command (cond ((eq command 'default) gnus-last-shell-command) --- 1653,1658 ---- *** pub/qgnus/lisp/gnus-audio.el Sat Sep 13 15:43:22 1997 --- qgnus/lisp/gnus-audio.el Mon Nov 24 18:51:47 1997 *************** *** 42,53 **** "The directory containing the Sound Files.") (defvar gnus-audio-au-player "/usr/bin/showaudio" ! "Executable program for playing sun AU format sound files") ! (defvar gnus-audio-wav-player "/usr/local/bin/play" ! "Executable program for playing WAV files") ! ;;; The following isn't implemented yet. Wait for Red Gnus. ;(defvar gnus-audio-effects-enabled t ; "When t, Gnus will use sound effects.") ;(defvar gnus-audio-enable-hooks nil --- 42,53 ---- "The directory containing the Sound Files.") (defvar gnus-audio-au-player "/usr/bin/showaudio" ! "Executable program for playing sun AU format sound files.") + (defvar gnus-audio-wav-player "/usr/local/bin/play" + "Executable program for playing WAV files.") ! ;;; The following isn't implemented yet. Wait for Millennium Gnus. ;(defvar gnus-audio-effects-enabled t ; "When t, Gnus will use sound effects.") ;(defvar gnus-audio-enable-hooks nil *** pub/qgnus/lisp/gnus-cache.el Sat Oct 4 01:03:21 1997 --- qgnus/lisp/gnus-cache.el Mon Nov 24 18:51:48 1997 *************** *** 316,322 **** If not given a prefix, use the process marked articles instead. Returns the list of articles entered." (interactive "P") - (gnus-set-global-variables) (let ((articles (gnus-summary-work-articles n)) article out) (while (setq article (pop articles)) --- 316,321 ---- *************** *** 338,344 **** If not given a prefix, use the process marked articles instead. Returns the list of articles removed." (interactive "P") - (gnus-set-global-variables) (gnus-cache-change-buffer gnus-newsgroup-name) (let ((articles (gnus-summary-work-articles n)) article out) --- 337,342 ---- *** pub/qgnus/lisp/gnus-draft.el Sat Sep 27 05:18:44 1997 --- qgnus/lisp/gnus-draft.el Mon Nov 24 18:51:48 1997 *************** *** 87,93 **** (defun gnus-draft-edit-message () "Enter a mail/post buffer to edit and send the draft." (interactive) - (gnus-set-global-variables) (let ((article (gnus-summary-article-number))) (gnus-draft-setup article gnus-newsgroup-name) (push --- 87,92 ---- *************** *** 102,108 **** (defun gnus-draft-send-message (&optional n) "Send the current draft." (interactive "P") - (gnus-set-global-variables) (let ((articles (gnus-summary-work-articles n)) article) (while (setq article (pop articles)) --- 101,106 ---- *** pub/qgnus/lisp/gnus-ems.el Sun Sep 21 23:59:21 1997 --- qgnus/lisp/gnus-ems.el Mon Nov 24 18:51:48 1997 *************** *** 93,99 **** (gnus-xmas-define)) ((or (not (boundp 'emacs-minor-version)) ! (< emacs-minor-version 30)) ;; Remove the `intangible' prop. (let ((props (and (boundp 'gnus-hidden-properties) gnus-hidden-properties))) --- 93,100 ---- (gnus-xmas-define)) ((or (not (boundp 'emacs-minor-version)) ! (and (< emacs-major-version 20) ! (< emacs-minor-version 30))) ;; Remove the `intangible' prop. (let ((props (and (boundp 'gnus-hidden-properties) gnus-hidden-properties))) *** pub/qgnus/lisp/gnus-gl.el Sat Sep 13 15:43:22 1997 --- qgnus/lisp/gnus-gl.el Mon Nov 24 18:51:49 1997 *************** *** 688,694 **** article) (while (setq article (pop articles)) (gnus-summary-goto-subject article) - (gnus-set-global-variables) (bbb-summary-rate-article score (mail-header-id (gnus-summary-article-header article))))) --- 688,693 ---- *** pub/qgnus/lisp/gnus-msg.el Sun Nov 23 16:26:36 1997 --- qgnus/lisp/gnus-msg.el Mon Nov 24 18:51:49 1997 *************** *** 231,237 **** (defun gnus-summary-post-news () "Start composing a news message." (interactive) - (gnus-set-global-variables) (gnus-post-news 'post gnus-newsgroup-name)) (defun gnus-summary-followup (yank &optional force-news) --- 231,236 ---- *************** *** 240,246 **** (interactive (list (and current-prefix-arg (gnus-summary-work-articles 1)))) - (gnus-set-global-variables) (when yank (gnus-summary-goto-subject (car yank))) (save-window-excursion --- 239,244 ---- *************** *** 293,299 **** prefix `a', cancel using the standard posting method; if not post using the current select method." (interactive (gnus-interactive "P\ny")) - (gnus-set-global-variables) (let ((articles (gnus-summary-work-articles n)) (message-post-method `(lambda (arg) --- 291,296 ---- *************** *** 313,319 **** This is done simply by taking the old article and adding a Supersedes header line with the old Message-ID." (interactive) - (gnus-set-global-variables) (let ((article (gnus-summary-article-number))) (gnus-setup-message 'reply-yank (gnus-summary-select-article t) --- 310,315 ---- *************** *** 593,599 **** (list (and current-prefix-arg (gnus-summary-work-articles 1)))) ;; Stripping headers should be specified with mail-yank-ignored-headers. - (gnus-set-global-variables) (when yank (gnus-summary-goto-subject (car yank))) (let ((gnus-article-reply t)) --- 589,594 ---- *************** *** 630,636 **** "Forward the current message to another user. If FULL-HEADERS (the prefix), include full headers when forwarding." (interactive "P") - (gnus-set-global-variables) (gnus-setup-message 'forward (gnus-summary-select-article) (set-buffer gnus-original-article-buffer) --- 625,630 ---- *** pub/qgnus/lisp/gnus-score.el Sun Nov 23 16:26:38 1997 --- qgnus/lisp/gnus-score.el Mon Nov 24 18:51:51 1997 *************** *** 472,478 **** permanence, and the string to be used. The numerical prefix will be used as score." (interactive (gnus-interactive "P\ny")) - (gnus-set-global-variables) (let* ((nscore (gnus-score-default score)) (prefix (if (< nscore 0) ?L ?I)) (increase (> nscore 0)) --- 472,477 ---- *************** *** 972,985 **** (defun gnus-summary-raise-score (n) "Raise the score of the current article by N." (interactive "p") - (gnus-set-global-variables) (gnus-summary-set-score (+ (gnus-summary-article-score) (or n gnus-score-interactive-default-score )))) (defun gnus-summary-set-score (n) "Set the score of the current article to N." (interactive "p") - (gnus-set-global-variables) (save-excursion (gnus-summary-show-thread) (let ((buffer-read-only nil)) --- 971,982 ---- *************** *** 998,1004 **** (defun gnus-summary-current-score () "Return the score of the current article." (interactive) - (gnus-set-global-variables) (gnus-message 1 "%s" (gnus-summary-article-score))) (defun gnus-score-change-score-file (file) --- 995,1000 ---- *************** *** 1012,1018 **** (defun gnus-score-edit-current-scores (file) "Edit the current score alist." (interactive (list gnus-current-score-file)) - (gnus-set-global-variables) (let ((winconf (current-window-configuration))) (when (buffer-name gnus-summary-buffer) (gnus-score-save)) --- 1008,1013 ---- *** pub/qgnus/lisp/gnus-soup.el Sat Sep 13 15:43:22 1997 --- qgnus/lisp/gnus-soup.el Mon Nov 24 18:51:51 1997 *************** *** 132,138 **** If N is nil and any articles have been marked with the process mark, move those articles instead." (interactive "P") - (gnus-set-global-variables) (let* ((articles (gnus-summary-work-articles n)) (tmp-buf (get-buffer-create "*soup work*")) (area (gnus-soup-area gnus-newsgroup-name)) --- 132,137 ---- *** pub/qgnus/lisp/gnus-spec.el Sat Sep 13 21:56:44 1997 --- qgnus/lisp/gnus-spec.el Mon Nov 24 18:51:52 1997 *************** *** 502,509 **** (defun gnus-compile () "Byte-compile the user-defined format specs." (interactive) - (when gnus-xemacs - (error "Can't compile specs under XEmacs")) (let ((entries gnus-format-specs) (byte-compile-warnings '(unresolved callargs redefine)) entry gnus-tmp-func) --- 502,507 ---- *************** *** 515,521 **** (if (eq (car entry) 'version) (setq gnus-format-specs (delq entry gnus-format-specs)) (when (and (listp (caddr entry)) ! (not (eq 'byte-code (caaddr entry)))) (fset 'gnus-tmp-func `(lambda () ,(caddr entry))) (byte-compile 'gnus-tmp-func) (setcar (cddr entry) (gnus-byte-code 'gnus-tmp-func))))) --- 513,522 ---- (if (eq (car entry) 'version) (setq gnus-format-specs (delq entry gnus-format-specs)) (when (and (listp (caddr entry)) ! (not (eq 'byte-code (caaddr entry))) ! ;; Under XEmacs, it's (funcall #) ! (not (and (eq 'funcall (caaddr entry)) ! (compiled-function-p (car (cdaddr entry)))))) (fset 'gnus-tmp-func `(lambda () ,(caddr entry))) (byte-compile 'gnus-tmp-func) (setcar (cddr entry) (gnus-byte-code 'gnus-tmp-func))))) *** pub/qgnus/lisp/gnus-start.el Sun Nov 23 16:26:40 1997 --- qgnus/lisp/gnus-start.el Mon Nov 24 18:51:54 1997 *************** *** 850,857 **** ;; Read the newsrc file and create `gnus-newsrc-hashtb'. (gnus-read-newsrc-file rawfile)) ! (when (and (not (assoc "archive" gnus-server-alist)) ! (gnus-archive-server-wanted-p)) (push (cons "archive" gnus-message-archive-method) gnus-server-alist)) --- 850,859 ---- ;; Read the newsrc file and create `gnus-newsrc-hashtb'. (gnus-read-newsrc-file rawfile)) ! ;; Make sure the archive server is available to all and sundry. ! (setq gnus-server-alist (delq (assoc "archive" gnus-server-alist) ! gnus-server-alist)) ! (when (gnus-archive-server-wanted-p) (push (cons "archive" gnus-message-archive-method) gnus-server-alist)) *** pub/qgnus/lisp/gnus-sum.el Sun Nov 23 16:26:44 1997 --- qgnus/lisp/gnus-sum.el Mon Nov 24 18:52:01 1997 *************** *** 1943,1948 **** --- 1943,1950 ---- (make-local-variable 'gnus-summary-mark-positions) (make-local-hook 'post-command-hook) (add-hook 'post-command-hook 'gnus-clear-inboxes-moved nil t) + (make-local-hook 'pre-command-hook) + (add-hook 'pre-command-hook 'gnus-set-global-variables nil t) (run-hooks 'gnus-summary-mode-hook) (gnus-update-format-specifications nil 'summary 'summary-mode 'summary-dummy) (gnus-update-summary-mark-positions)) *************** *** 2340,2356 **** (score-file gnus-current-score-file)) (save-excursion (set-buffer gnus-group-buffer) ! (setq gnus-newsgroup-name name) ! (setq gnus-newsgroup-marked marked) ! (setq gnus-newsgroup-unreads unread) ! (setq gnus-current-headers headers) ! (setq gnus-newsgroup-data data) ! (setq gnus-article-current gac) ! (setq gnus-summary-buffer summary) ! (setq gnus-article-buffer article-buffer) ! (setq gnus-original-article-buffer original) ! (setq gnus-reffed-article-number reffed) ! (setq gnus-current-score-file score-file) ;; The article buffer also has local variables. (when (gnus-buffer-live-p gnus-article-buffer) (set-buffer gnus-article-buffer) --- 2342,2358 ---- (score-file gnus-current-score-file)) (save-excursion (set-buffer gnus-group-buffer) ! (setq gnus-newsgroup-name name ! gnus-newsgroup-marked marked ! gnus-newsgroup-unreads unread ! gnus-current-headers headers ! gnus-newsgroup-data data ! gnus-article-current gac ! gnus-summary-buffer summary ! gnus-article-buffer article-buffer ! gnus-original-article-buffer original ! gnus-reffed-article-number reffed ! gnus-current-score-file score-file) ;; The article buffer also has local variables. (when (gnus-buffer-live-p gnus-article-buffer) (set-buffer gnus-article-buffer) *************** *** 2606,2611 **** --- 2608,2616 ---- (kill-buffer (current-buffer)) (if (not quit-config) (progn + ;; Update the info -- marks might need to be removed, + ;; for instance. + (gnus-summary-update-info) (set-buffer gnus-group-buffer) (gnus-group-jump-to-group group) (gnus-group-next-unread-group 1)) *************** *** 2771,2777 **** (defun gnus-summary-simplify-subject-query () "Query where the respool algorithm would put this article." (interactive) - (gnus-set-global-variables) (gnus-summary-select-article) (message (gnus-general-simplify-subject (gnus-summary-article-subject)))) --- 2776,2781 ---- *************** *** 3973,3979 **** (set var (delq article (symbol-value var)))))))))) (defun gnus-update-missing-marks (missing) ! "Go through the list of MISSING articles and remove them mark lists." (when missing (let ((types gnus-article-mark-lists) var m) --- 3977,3983 ---- (set var (delq article (symbol-value var)))))))))) (defun gnus-update-missing-marks (missing) ! "Go through the list of MISSING articles and remove them from the mark lists." (when missing (let ((types gnus-article-mark-lists) var m) *************** *** 4915,4921 **** (defun gnus-summary-universal-argument (arg) "Perform any operation on all articles that are process/prefixed." (interactive "P") - (gnus-set-global-variables) (let ((articles (gnus-summary-work-articles arg)) func article) (if (eq --- 4919,4924 ---- *************** *** 4949,4955 **** "Exit and then reselect the current newsgroup. The prefix argument ALL means to select all articles." (interactive "P") - (gnus-set-global-variables) (when (gnus-ephemeral-group-p gnus-newsgroup-name) (error "Ephemeral groups can't be reselected")) (let ((current-subject (gnus-summary-article-number)) --- 4952,4957 ---- *************** *** 5001,5011 **** ;; Do the cross-ref thing. (when gnus-use-cross-reference (gnus-mark-xrefs-as-read group headers gnus-newsgroup-unreads)) - ;; Do adaptive scoring, and possibly save score files. - (when gnus-newsgroup-adaptive - (gnus-score-adaptive)) - (when gnus-use-scoring - (gnus-score-save)) ;; Do not switch windows but change the buffer to work. (set-buffer gnus-group-buffer) (unless (gnus-ephemeral-group-p gnus-newsgroup-name) --- 5003,5008 ---- *************** *** 5025,5031 **** "Exit reading current newsgroup, and then return to group selection mode. gnus-exit-group-hook is called with no arguments if that value is non-nil." (interactive) - (gnus-set-global-variables) (gnus-kill-save-kill-buffer) (let* ((group gnus-newsgroup-name) (quit-config (gnus-group-quit-config gnus-newsgroup-name)) --- 5022,5027 ---- *************** *** 5048,5054 **** ;; Make all changes in this group permanent. (unless quit-config (run-hooks 'gnus-exit-group-hook) ! (gnus-summary-update-info)) (gnus-close-group group) ;; Make sure where we were, and go to next newsgroup. (set-buffer gnus-group-buffer) --- 5044,5055 ---- ;; Make all changes in this group permanent. (unless quit-config (run-hooks 'gnus-exit-group-hook) ! (gnus-summary-update-info) ! ;; Do adaptive scoring, and possibly save score files. ! (when gnus-newsgroup-adaptive ! (gnus-score-adaptive)) ! (when gnus-use-scoring ! (gnus-score-save))) (gnus-close-group group) ;; Make sure where we were, and go to next newsgroup. (set-buffer gnus-group-buffer) *************** *** 5100,5106 **** (defun gnus-summary-exit-no-update (&optional no-questions) "Quit reading current newsgroup without updating read article info." (interactive) - (gnus-set-global-variables) (let* ((group gnus-newsgroup-name) (quit-config (gnus-group-quit-config group))) (when (or no-questions --- 5101,5106 ---- *************** *** 5286,5292 **** initially. If NEXT-GROUP, go to this group. If BACKWARD, go to previous group instead." (interactive "P") - (gnus-set-global-variables) ;; Stop pre-fetching. (gnus-async-halt-prefetch) (let ((current-group gnus-newsgroup-name) --- 5286,5291 ---- *************** *** 5430,5436 **** "Make the summary buffer take up the entire Emacs frame. Given a prefix, will force an `article' buffer configuration." (interactive "P") - (gnus-set-global-variables) (if arg (gnus-configure-windows 'article 'force) (gnus-configure-windows 'summary 'force))) --- 5429,5434 ---- *************** *** 5507,5513 **** If SUBJECT, only articles with SUBJECT are selected. If BACKWARD, the previous article is selected instead of the next." (interactive "P") - (gnus-set-global-variables) (cond ;; Is there such an article? ((and (gnus-summary-search-forward unread subject backward) --- 5505,5510 ---- *************** *** 5681,5687 **** If MOVE, move to the previous unread article if point is at the beginning of the buffer." (interactive "P") - (gnus-set-global-variables) (let ((article (gnus-summary-article-number)) (article-window (get-buffer-window gnus-article-buffer t)) endp) --- 5678,5683 ---- *************** *** 5717,5723 **** "Scroll up (or down) one line current article. Argument LINES specifies lines to be scrolled up (or down if negative)." (interactive "p") - (gnus-set-global-variables) (gnus-configure-windows 'article) (gnus-summary-show-thread) (when (eq (gnus-summary-select-article nil nil 'pseudo) 'old) --- 5713,5718 ---- *************** *** 5733,5764 **** (defun gnus-summary-next-same-subject () "Select next article which has the same subject as current one." (interactive) - (gnus-set-global-variables) (gnus-summary-next-article nil (gnus-summary-article-subject))) (defun gnus-summary-prev-same-subject () "Select previous article which has the same subject as current one." (interactive) - (gnus-set-global-variables) (gnus-summary-prev-article nil (gnus-summary-article-subject))) (defun gnus-summary-next-unread-same-subject () "Select next unread article which has the same subject as current one." (interactive) - (gnus-set-global-variables) (gnus-summary-next-article t (gnus-summary-article-subject))) (defun gnus-summary-prev-unread-same-subject () "Select previous unread article which has the same subject as current one." (interactive) - (gnus-set-global-variables) (gnus-summary-prev-article t (gnus-summary-article-subject))) (defun gnus-summary-first-unread-article () "Select the first unread article. Return nil if there are no unread articles." (interactive) - (gnus-set-global-variables) (prog1 (when (gnus-summary-first-subject t) (gnus-summary-show-thread) --- 5728,5754 ---- *************** *** 5770,5776 **** "Select the first article. Return nil if there are no articles." (interactive) - (gnus-set-global-variables) (prog1 (when (gnus-summary-first-subject) (gnus-summary-show-thread) --- 5760,5765 ---- *************** *** 5781,5787 **** (defun gnus-summary-best-unread-article () "Select the unread article with the highest score." (interactive) - (gnus-set-global-variables) (let ((best -1000000) (data gnus-newsgroup-data) article score) --- 5770,5775 ---- *************** *** 5853,5859 **** "Limit the summary buffer to the next N articles. If not given a prefix, use the process marked articles instead." (interactive "P") - (gnus-set-global-variables) (prog1 (let ((articles (gnus-summary-work-articles n))) (setq gnus-newsgroup-processable nil) --- 5841,5846 ---- *************** *** 5864,5870 **** "Restore the previous limit. If given a prefix, remove all limits." (interactive "P") - (gnus-set-global-variables) (when total (setq gnus-newsgroup-limits (list (mapcar (lambda (h) (mail-header-number h)) --- 5851,5856 ---- *************** *** 5953,5959 **** list of marks. Returns how many articles were removed." (interactive "sMarks: \nP") - (gnus-set-global-variables) (prog1 (let ((data gnus-newsgroup-data) (marks (if (listp marks) marks --- 5939,5944 ---- *************** *** 5970,5976 **** (defun gnus-summary-limit-to-score (&optional score) "Limit to articles with score at or above SCORE." (interactive "P") - (gnus-set-global-variables) (setq score (if score (prefix-numeric-value score) (or gnus-summary-default-score 0))) --- 5955,5960 ---- *************** *** 5988,5994 **** (defun gnus-summary-limit-include-thread (id) "Display all the hidden articles that in the current thread." (interactive (list (mail-header-id (gnus-summary-article-header)))) - (gnus-set-global-variables) (let ((articles (gnus-articles-in-thread (gnus-id-to-thread (gnus-root-id id))))) (prog1 --- 5972,5977 ---- *************** *** 5998,6004 **** (defun gnus-summary-limit-include-dormant () "Display all the hidden articles that are marked as dormant." (interactive) - (gnus-set-global-variables) (unless gnus-newsgroup-dormant (error "There are no dormant articles in this group")) (prog1 --- 5981,5986 ---- *************** *** 6008,6014 **** (defun gnus-summary-limit-exclude-dormant () "Hide all dormant articles." (interactive) - (gnus-set-global-variables) (prog1 (gnus-summary-limit-to-marks (list gnus-dormant-mark) 'reverse) (gnus-summary-position-point))) --- 5990,5995 ---- *************** *** 6016,6022 **** (defun gnus-summary-limit-exclude-childless-dormant () "Hide all dormant articles that have no children." (interactive) - (gnus-set-global-variables) (let ((data (gnus-data-list t)) articles d children) ;; Find all articles that are either not dormant or have --- 5997,6002 ---- *************** *** 6280,6286 **** If N is negative, go to ancestor -N instead. The difference between N and the number of articles fetched is returned." (interactive "p") - (gnus-set-global-variables) (let ((skip 1) error header ref) (when (not (natnump n)) --- 6260,6265 ---- *************** *** 6323,6329 **** "Fetch all articles mentioned in the References header. Return the number of articles fetched." (interactive) - (gnus-set-global-variables) (let ((ref (mail-header-references (gnus-summary-article-header))) (current (gnus-summary-article-number)) (n 0)) --- 6302,6307 ---- *************** *** 6346,6352 **** If LIMIT (the numerical prefix), fetch that many old headers instead of what's specified by the `gnus-refer-thread-limit' variable." (interactive "P") - (gnus-set-global-variables) (let ((id (mail-header-id (gnus-summary-article-header))) (limit (if limit (prefix-numeric-value limit) gnus-refer-thread-limit)) --- 6324,6329 ---- *************** *** 6418,6424 **** If FORCE, force a digest interpretation. If not, try to guess what the document format is." (interactive "P") - (gnus-set-global-variables) (let ((conf gnus-current-window-configuration)) (save-excursion (gnus-summary-select-article)) --- 6395,6400 ---- *************** *** 6516,6527 **** "Do incremental search forward on the current article. If REGEXP-P (the prefix) is non-nil, do regexp isearch." (interactive "P") - (gnus-set-global-variables) (gnus-summary-select-article) (gnus-configure-windows 'article) (gnus-eval-in-buffer-window gnus-article-buffer ! ;;(goto-char (point-min)) ! (isearch-forward regexp-p))) (defun gnus-summary-search-article-forward (regexp &optional backward) "Search for an article containing REGEXP forward. --- 6492,6503 ---- "Do incremental search forward on the current article. If REGEXP-P (the prefix) is non-nil, do regexp isearch." (interactive "P") (gnus-summary-select-article) (gnus-configure-windows 'article) (gnus-eval-in-buffer-window gnus-article-buffer ! (save-restriction ! (widen) ! (isearch-forward regexp-p)))) (defun gnus-summary-search-article-forward (regexp &optional backward) "Search for an article containing REGEXP forward. *************** *** 6534,6540 **** (concat ", default " gnus-last-search-regexp) ""))) current-prefix-arg)) - (gnus-set-global-variables) (if (string-equal regexp "") (setq regexp (or gnus-last-search-regexp "")) (setq gnus-last-search-regexp regexp)) --- 6510,6515 ---- *************** *** 6656,6662 **** current-prefix-arg)) (when (equal header "Body") (setq header "")) - (gnus-set-global-variables) ;; Hidden thread subtrees must be searched as well. (gnus-summary-show-all-threads) ;; We don't want to change current point nor window configuration. --- 6631,6636 ---- *************** *** 6672,6678 **** (defun gnus-summary-beginning-of-article () "Scroll the article back to the beginning." (interactive) - (gnus-set-global-variables) (gnus-summary-select-article) (gnus-configure-windows 'article) (gnus-eval-in-buffer-window gnus-article-buffer --- 6646,6651 ---- *************** *** 6684,6690 **** (defun gnus-summary-end-of-article () "Scroll to the end of the article." (interactive) - (gnus-set-global-variables) (gnus-summary-select-article) (gnus-configure-windows 'article) (gnus-eval-in-buffer-window gnus-article-buffer --- 6657,6662 ---- *************** *** 6719,6725 **** If ARG (the prefix) is non-nil, show the raw article without any article massaging functions being run." (interactive "P") - (gnus-set-global-variables) (if (not arg) ;; Select the article the normal way. (gnus-summary-select-article nil 'force) --- 6691,6696 ---- *************** *** 6739,6745 **** If ARG is a positive number, turn header display on. If ARG is a negative number, turn header display off." (interactive "P") - (gnus-set-global-variables) (setq gnus-show-all-headers (cond ((or (not (numberp arg)) (zerop arg)) --- 6710,6715 ---- *************** *** 6753,6759 **** If ARG is a positive number, show the entire header. If ARG is a negative number, hide the unwanted header lines." (interactive "P") - (gnus-set-global-variables) (save-excursion (set-buffer gnus-article-buffer) (let* ((buffer-read-only nil) --- 6723,6728 ---- *************** *** 6779,6792 **** (defun gnus-summary-show-all-headers () "Make all header lines visible." (interactive) - (gnus-set-global-variables) (gnus-article-show-all-headers)) (defun gnus-summary-toggle-mime (&optional arg) "Toggle MIME processing. If ARG is a positive number, turn MIME processing on." (interactive "P") - (gnus-set-global-variables) (setq gnus-show-mime (if (null arg) (not gnus-show-mime) (> (prefix-numeric-value arg) 0))) --- 6748,6759 ---- *************** *** 6797,6803 **** The numerical prefix specifies how many places to rotate each letter forward." (interactive "P") - (gnus-set-global-variables) (gnus-summary-select-article) (let ((mail-header-separator "")) (gnus-eval-in-buffer-window gnus-article-buffer --- 6764,6769 ---- *************** *** 6811,6817 **** (defun gnus-summary-stop-page-breaking () "Stop page breaking in the current article." (interactive) - (gnus-set-global-variables) (gnus-summary-select-article) (gnus-eval-in-buffer-window gnus-article-buffer (widen) --- 6777,6782 ---- *************** *** 6837,6843 **** (interactive "P") (unless action (setq action 'move)) - (gnus-set-global-variables) ;; Disable marking as read. (let (gnus-mark-article-hook) (save-window-excursion --- 6802,6807 ---- *************** *** 7094,7100 **** (let ((ms-alist (mapcar (lambda (m) (cons (cadr m) m)) ms))) (cdr (assoc (completing-read "Server name: " ms-alist nil t) ms-alist)))))))) - (gnus-set-global-variables) (unless method (error "No method given for respooling")) (if (assoc (symbol-name --- 7058,7063 ---- *************** *** 7106,7112 **** (defun gnus-summary-import-article (file) "Import a random file into a mail newsgroup." (interactive "fImport file: ") - (gnus-set-global-variables) (let ((group gnus-newsgroup-name) (now (current-time)) atts lines) --- 7069,7074 ---- *************** *** 7155,7161 **** (defun gnus-summary-expire-articles (&optional now) "Expire all articles that are marked as expirable in the current group." (interactive) - (gnus-set-global-variables) (when (gnus-check-backend-function 'request-expire-articles gnus-newsgroup-name) ;; This backend supports expiry. --- 7117,7122 ---- *************** *** 7205,7211 **** This means that *all* articles that are marked as expirable will be deleted forever, right now." (interactive) - (gnus-set-global-variables) (or gnus-expert-user (gnus-yes-or-no-p "Are you really, really, really sure you want to delete all these messages? ") --- 7166,7171 ---- *************** *** 7222,7228 **** If N is nil and articles have been marked with the process mark, delete these instead." (interactive "P") - (gnus-set-global-variables) (unless (gnus-check-backend-function 'request-expire-articles gnus-newsgroup-name) (error "The current newsgroup does not support article deletion")) --- 7182,7187 ---- *************** *** 7349,7355 **** (defun gnus-summary-respool-query (&optional silent) "Query where the respool algorithm would put this article." (interactive) - (gnus-set-global-variables) (let (gnus-mark-article-hook) (gnus-summary-select-article) (save-excursion --- 7308,7313 ---- *************** *** 7371,7377 **** If UNMARK is positive, remove any kind of mark. If UNMARK is negative, tick articles." (interactive "P") - (gnus-set-global-variables) (when unmark (setq unmark (prefix-numeric-value unmark))) (let ((count --- 7329,7334 ---- *************** *** 7390,7396 **** If UNMARK is positive, remove any kind of mark. If UNMARK is negative, tick articles." (interactive "P") - (gnus-set-global-variables) (when unmark (setq unmark (prefix-numeric-value unmark))) (let ((count --- 7347,7352 ---- *************** *** 7441,7447 **** the process mark instead. The difference between N and the actual number of articles marked is returned." (interactive "p") - (gnus-set-global-variables) (let ((backward (< n 0)) (n (abs n))) (while (and --- 7397,7402 ---- *************** *** 7463,7475 **** If N is negative, unmark backward instead. The difference between N and the actual number of articles unmarked is returned." (interactive "p") - (gnus-set-global-variables) (gnus-summary-mark-as-processable n t)) (defun gnus-summary-unmark-all-processable () "Remove the process mark from all articles." (interactive) - (gnus-set-global-variables) (save-excursion (while gnus-newsgroup-processable (gnus-summary-remove-process-mark (car gnus-newsgroup-processable)))) --- 7418,7428 ---- *************** *** 7480,7486 **** If N is negative, mark backward instead. The difference between N and the actual number of articles marked is returned." (interactive "p") - (gnus-set-global-variables) (gnus-summary-mark-forward n gnus-expirable-mark)) (defun gnus-summary-mark-article-as-replied (article) --- 7433,7438 ---- *************** *** 7493,7499 **** (defun gnus-summary-set-bookmark (article) "Set a bookmark in current article." (interactive (list (gnus-summary-article-number))) - (gnus-set-global-variables) (when (or (not (get-buffer gnus-article-buffer)) (not gnus-current-article) (not gnus-article-current) --- 7445,7450 ---- *************** *** 7523,7529 **** (defun gnus-summary-remove-bookmark (article) "Remove the bookmark from the current article." (interactive (list (gnus-summary-article-number))) - (gnus-set-global-variables) ;; Remove old bookmark, if one exists. (let ((old (assq article gnus-newsgroup-bookmarks))) (if old --- 7474,7479 ---- *************** *** 7539,7545 **** If N is negative, mark backward instead. The difference between N and the actual number of articles marked is returned." (interactive "p") - (gnus-set-global-variables) (gnus-summary-mark-forward n gnus-dormant-mark)) (defun gnus-summary-set-process-mark (article) --- 7489,7494 ---- *************** *** 7570,7576 **** The difference between N and the actual number of articles marked is returned." (interactive "p") - (gnus-set-global-variables) (let ((backward (< n 0)) (gnus-summary-goto-unread (and gnus-summary-goto-unread --- 7519,7524 ---- *************** *** 7877,7883 **** (defun gnus-summary-mark-below (score mark) "Mark articles with score less than SCORE with MARK." (interactive "P\ncMark: ") - (gnus-set-global-variables) (setq score (if score (prefix-numeric-value score) (or gnus-summary-default-score 0))) --- 7825,7830 ---- *************** *** 7893,7917 **** (defun gnus-summary-kill-below (&optional score) "Mark articles with score below SCORE as read." (interactive "P") - (gnus-set-global-variables) (gnus-summary-mark-below score gnus-killed-mark)) (defun gnus-summary-clear-above (&optional score) "Clear all marks from articles with score above SCORE." (interactive "P") - (gnus-set-global-variables) (gnus-summary-mark-above score gnus-unread-mark)) (defun gnus-summary-tick-above (&optional score) "Tick all articles with score above SCORE." (interactive "P") - (gnus-set-global-variables) (gnus-summary-mark-above score gnus-ticked-mark)) (defun gnus-summary-mark-above (score mark) "Mark articles with score over SCORE with MARK." (interactive "P\ncMark: ") - (gnus-set-global-variables) (setq score (if score (prefix-numeric-value score) (or gnus-summary-default-score 0))) --- 7840,7860 ---- *************** *** 7929,7935 **** (defun gnus-summary-limit-include-expunged (&optional no-error) "Display all the hidden articles that were expunged for low scores." (interactive) - (gnus-set-global-variables) (let ((buffer-read-only nil)) (let ((scored gnus-newsgroup-scored) headers h) --- 7872,7877 ---- *************** *** 7959,7965 **** in the current summary buffer limitation. The number of articles marked as read is returned." (interactive "P") - (gnus-set-global-variables) (prog1 (save-excursion (when (or quietly --- 7901,7906 ---- *************** *** 7996,8002 **** "Mark all unticked articles before the current one as read. If ALL is non-nil, also mark ticked and dormant articles as read." (interactive "P") - (gnus-set-global-variables) (save-excursion (gnus-save-hidden-threads (let ((beg (point))) --- 7937,7942 ---- *************** *** 8008,8021 **** (defun gnus-summary-catchup-all (&optional quietly) "Mark all articles in this newsgroup as read." (interactive "P") - (gnus-set-global-variables) (gnus-summary-catchup t quietly)) (defun gnus-summary-catchup-and-exit (&optional all quietly) "Mark all articles not marked as unread in this newsgroup as read, then exit. If prefix argument ALL is non-nil, all articles are marked as read." (interactive "P") - (gnus-set-global-variables) (when (gnus-summary-catchup all quietly nil 'fast) ;; Select next newsgroup or exit. (if (eq gnus-auto-select-next 'quietly) --- 7948,7959 ---- *************** *** 8025,8031 **** (defun gnus-summary-catchup-all-and-exit (&optional quietly) "Mark all articles in this newsgroup as read, and then exit." (interactive "P") - (gnus-set-global-variables) (gnus-summary-catchup-and-exit t quietly)) ;; Suggested by "Arne Eofsson" . --- 7963,7968 ---- *************** *** 8034,8040 **** If given a prefix, mark all articles, unread as well as ticked, as read." (interactive "P") - (gnus-set-global-variables) (save-excursion (gnus-summary-catchup all)) (gnus-summary-next-article t nil nil t)) --- 7971,7976 ---- *************** *** 8081,8087 **** (defun gnus-summary-rethread-current () "Rethread the thread the current article is part of." (interactive) - (gnus-set-global-variables) (let* ((gnus-show-threads t) (article (gnus-summary-article-number)) (id (mail-header-id (gnus-summary-article-header))) --- 8017,8022 ---- *************** *** 8145,8151 **** "Toggle showing conversation threads. If ARG is positive number, turn showing conversation threads on." (interactive "P") - (gnus-set-global-variables) (let ((current (or (gnus-summary-article-number) gnus-newsgroup-end))) (setq gnus-show-threads (if (null arg) (not gnus-show-threads) --- 8080,8085 ---- *************** *** 8158,8164 **** (defun gnus-summary-show-all-threads () "Show all threads." (interactive) - (gnus-set-global-variables) (save-excursion (let ((buffer-read-only nil)) (subst-char-in-region (point-min) (point-max) ?\^M ?\n t))) --- 8092,8097 ---- *************** *** 8168,8174 **** "Show thread subtrees. Returns nil if no thread was there to be shown." (interactive) - (gnus-set-global-variables) (let ((buffer-read-only nil) (orig (point)) ;; first goto end then to beg, to have point at beg after let --- 8101,8106 ---- *************** *** 8184,8190 **** (defun gnus-summary-hide-all-threads () "Hide all thread subtrees." (interactive) - (gnus-set-global-variables) (save-excursion (goto-char (point-min)) (gnus-summary-hide-thread) --- 8116,8121 ---- *************** *** 8196,8202 **** "Hide thread subtrees. Returns nil if no threads were there to be hidden." (interactive) - (gnus-set-global-variables) (let ((buffer-read-only nil) (start (point)) (article (gnus-summary-article-number))) --- 8127,8132 ---- *************** *** 8245,8251 **** If SILENT, don't output messages." (interactive "p") - (gnus-set-global-variables) (let ((backward (< n 0)) (n (abs n))) (while (and (> n 0) --- 8175,8180 ---- *************** *** 8262,8268 **** Returns the difference between N and the number of skips actually done." (interactive "p") - (gnus-set-global-variables) (gnus-summary-next-thread (- n))) (defun gnus-summary-go-down-thread () --- 8191,8196 ---- *************** *** 8283,8289 **** Returns the difference between N and how many steps down that were taken." (interactive "p") - (gnus-set-global-variables) (let ((up (< n 0)) (n (abs n))) (while (and (> n 0) --- 8211,8216 ---- *************** *** 8301,8313 **** Returns the difference between N and how many steps down that were taken." (interactive "p") - (gnus-set-global-variables) (gnus-summary-down-thread (- n))) (defun gnus-summary-top-thread () "Go to the top of the thread." (interactive) - (gnus-set-global-variables) (while (gnus-summary-go-up-thread)) (gnus-summary-article-number)) --- 8228,8238 ---- *************** *** 8316,8322 **** If the prefix argument is positive, remove any kinds of marks. If the prefix argument is negative, tick articles instead." (interactive "P") - (gnus-set-global-variables) (when unmark (setq unmark (prefix-numeric-value unmark))) (let ((articles (gnus-summary-articles-in-thread))) --- 8241,8246 ---- *************** *** 8385,8391 **** (defun gnus-summary-sort (predicate reverse) "Sort summary buffer by PREDICATE. REVERSE means reverse order." - (gnus-set-global-variables) (let* ((thread (intern (format "gnus-thread-sort-by-%s" predicate))) (article (intern (format "gnus-article-sort-by-%s" predicate))) (gnus-thread-sort-functions --- 8309,8314 ---- *************** *** 8418,8424 **** save those articles instead. The variable `gnus-default-article-saver' specifies the saver function." (interactive "P") - (gnus-set-global-variables) (let* ((articles (gnus-summary-work-articles n)) (save-buffer (save-excursion (nnheader-set-temp-buffer " *Gnus Save*"))) --- 8341,8346 ---- *************** *** 8455,8461 **** If N is nil and any articles have been marked with the process mark, pipe those articles instead." (interactive "P") - (gnus-set-global-variables) (let ((gnus-default-article-saver 'gnus-summary-save-in-pipe)) (gnus-summary-save-article arg t)) (gnus-configure-windows 'pipe)) --- 8377,8382 ---- *************** *** 8467,8473 **** If N is nil and any articles have been marked with the process mark, save those articles instead." (interactive "P") - (gnus-set-global-variables) (let ((gnus-default-article-saver 'gnus-summary-save-in-mail)) (gnus-summary-save-article arg))) --- 8388,8393 ---- *************** *** 8478,8484 **** If N is nil and any articles have been marked with the process mark, save those articles instead." (interactive "P") - (gnus-set-global-variables) (let ((gnus-default-article-saver 'gnus-summary-save-in-rmail)) (gnus-summary-save-article arg))) --- 8398,8403 ---- *************** *** 8489,8495 **** If N is nil and any articles have been marked with the process mark, save those articles instead." (interactive "P") - (gnus-set-global-variables) (let ((gnus-default-article-saver 'gnus-summary-save-in-file)) (gnus-summary-save-article arg))) --- 8408,8413 ---- *************** *** 8500,8506 **** If N is nil and any articles have been marked with the process mark, save those articles instead." (interactive "P") - (gnus-set-global-variables) (let ((gnus-default-article-saver 'gnus-summary-write-to-file)) (gnus-summary-save-article arg))) --- 8418,8423 ---- *************** *** 8511,8524 **** If N is nil and any articles have been marked with the process mark, save those articles instead." (interactive "P") - (gnus-set-global-variables) (let ((gnus-default-article-saver 'gnus-summary-save-body-in-file)) (gnus-summary-save-article arg))) (defun gnus-summary-pipe-message (program) "Pipe the current article through PROGRAM." (interactive "sProgram: ") - (gnus-set-global-variables) (gnus-summary-select-article) (let ((mail-header-separator "") (art-buf (get-buffer gnus-article-buffer))) --- 8428,8439 ---- *************** *** 8721,8735 **** (defun gnus-summary-edit-global-kill (article) "Edit the \"global\" kill file." (interactive (list (gnus-summary-article-number))) - (gnus-set-global-variables) (gnus-group-edit-global-kill article)) (defun gnus-summary-edit-local-kill () "Edit a local kill file applied to the current newsgroup." (interactive) - (gnus-set-global-variables) (setq gnus-current-headers (gnus-summary-article-header)) - (gnus-set-global-variables) (gnus-group-edit-local-kill (gnus-summary-article-number) gnus-newsgroup-name)) --- 8636,8647 ---- *** pub/qgnus/lisp/gnus-util.el Sun Nov 23 16:26:45 1997 --- qgnus/lisp/gnus-util.el Mon Nov 24 18:52:01 1997 *************** *** 586,593 **** (prin1 form (current-buffer)))) (defun gnus-prin1-to-string (form) ! "The same as `prin1', but but `print-quoted' to t." ! (let ((print-quoted t)) (prin1-to-string form))) (defun gnus-make-directory (directory) --- 586,594 ---- (prin1 form (current-buffer)))) (defun gnus-prin1-to-string (form) ! "The same as `prin1', but bind `print-quoted' and `print-readably' to t." ! (let ((print-quoted t) ! (print-readably t)) (prin1-to-string form))) (defun gnus-make-directory (directory) *** pub/qgnus/lisp/gnus-uu.el Sat Oct 4 01:03:31 1997 --- qgnus/lisp/gnus-uu.el Mon Nov 24 18:52:03 1997 *************** *** 558,564 **** (defun gnus-uu-mark-by-regexp (regexp &optional unmark) "Ask for a regular expression and set the process mark on all articles that match." (interactive (list (read-from-minibuffer "Mark (regexp): "))) - (gnus-set-global-variables) (let ((articles (gnus-uu-find-articles-matching regexp))) (while articles (if unmark --- 558,563 ---- *************** *** 575,581 **** (defun gnus-uu-mark-series () "Mark the current series with the process mark." (interactive) - (gnus-set-global-variables) (let ((articles (gnus-uu-find-articles-matching))) (while articles (gnus-summary-set-process-mark (car articles)) --- 574,579 ---- *************** *** 586,592 **** (defun gnus-uu-mark-region (beg end &optional unmark) "Set the process mark on all articles between point and mark." (interactive "r") - (gnus-set-global-variables) (save-excursion (goto-char beg) (while (< (point) end) --- 584,589 ---- *************** *** 614,620 **** (defun gnus-uu-mark-thread () "Marks all articles downwards in this thread." (interactive) - (gnus-set-global-variables) (let ((level (gnus-summary-thread-level))) (while (and (gnus-summary-set-process-mark (gnus-summary-article-number)) (zerop (gnus-summary-next-subject 1)) --- 611,616 ---- *************** *** 624,630 **** (defun gnus-uu-unmark-thread () "Unmarks all articles downwards in this thread." (interactive) - (gnus-set-global-variables) (let ((level (gnus-summary-thread-level))) (while (and (gnus-summary-remove-process-mark (gnus-summary-article-number)) --- 620,625 ---- *************** *** 663,669 **** (defun gnus-uu-mark-sparse () "Mark all series that have some articles marked." (interactive) - (gnus-set-global-variables) (let ((marked (nreverse gnus-newsgroup-processable)) subject articles total headers) (unless marked --- 658,663 ---- *************** *** 688,694 **** (defun gnus-uu-mark-all () "Mark all articles in \"series\" order." (interactive) - (gnus-set-global-variables) (setq gnus-newsgroup-processable nil) (save-excursion (let ((data gnus-newsgroup-data) --- 682,687 ---- *** pub/qgnus/lisp/gnus-xmas.el Sat Oct 4 01:03:31 1997 --- qgnus/lisp/gnus-xmas.el Mon Nov 24 18:52:03 1997 *************** *** 512,527 **** (let* ((logo-xpm (expand-file-name "gnus.xpm" gnus-xmas-glyph-directory)) (logo-xbm (expand-file-name "gnus.xbm" gnus-xmas-glyph-directory)) (glyph (make-glyph ! `(,@(if (featurep 'xpm) ! (list ! (vector 'xpm ! ':file logo-xpm ! ':color-symbols ! `(("thing" . ,(car gnus-xmas-logo-colors)) ! ("shadow" . ,(cadr gnus-xmas-logo-colors)) ! ("background" . ,(face-background 'default)))))) ! ,(vector 'xbm :file logo-xbm) ! ,(vector 'nothing))))) (insert " ") (set-extent-begin-glyph (make-extent (point) (point)) glyph) (goto-char (point-min)) --- 512,527 ---- (let* ((logo-xpm (expand-file-name "gnus.xpm" gnus-xmas-glyph-directory)) (logo-xbm (expand-file-name "gnus.xbm" gnus-xmas-glyph-directory)) (glyph (make-glyph ! (cond ((featurep 'xpm) ! `[xpm ! :file ,logo-xpm ! :color-symbols ! (("thing" . ,(car gnus-xmas-logo-colors)) ! ("shadow" . ,(cadr gnus-xmas-logo-colors)) ! ("background" . ,(face-background 'default)))]) ! ((featurep 'xbm) ! `[xbm :file ,logo-xbm]) ! (t [nothing]))))) (insert " ") (set-extent-begin-glyph (make-extent (point) (point)) glyph) (goto-char (point-min)) *************** *** 754,772 **** (progn (setq gnus-xmas-glyph-directory (message-xmas-find-glyph-directory "gnus")) (let* ((file-xpm (expand-file-name "gnus-pointer.xpm" ! gnus-xmas-glyph-directory)) (file-xbm (expand-file-name "gnus-pointer.xbm" ! gnus-xmas-glyph-directory)) (glyph (make-glyph ;; Gag gag gag. ! `( ! ,@(if (featurep 'xpm) ! ;; Let's try a nifty XPM ! (list (vector 'xpm ':file file-xpm))) ! ;; Then a not-so-nifty XBM ! ,(vector 'xbm ':file file-xbm) ! ;; Then the simple string ! ,(vector 'string ':data "Gnus:"))))) (set-glyph-face glyph 'modeline-buffer-id) glyph))) --- 754,772 ---- (progn (setq gnus-xmas-glyph-directory (message-xmas-find-glyph-directory "gnus")) (let* ((file-xpm (expand-file-name "gnus-pointer.xpm" ! gnus-xmas-glyph-directory)) (file-xbm (expand-file-name "gnus-pointer.xbm" ! gnus-xmas-glyph-directory)) (glyph (make-glyph ;; Gag gag gag. ! (cond ((featurep 'xpm) ! ;; Let's try a nifty XPM ! `[xpm :file ,file-xpm]) ! ((featurep 'xbm) ! ;; Then a not-so-nifty XBM ! [xbm :file ,file-xbm]) ! ;; Then the simple string ! (t [string :data "Gnus:"]))))) (set-glyph-face glyph 'modeline-buffer-id) glyph))) *** pub/qgnus/lisp/gnus.el Sun Nov 23 16:26:47 1997 --- qgnus/lisp/gnus.el Mon Nov 24 18:52:05 1997 *************** *** 244,250 **** :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "0.14" "Version number for this version of Gnus.") (defconst gnus-version (format "Quassia Gnus v%s" gnus-version-number) --- 244,250 ---- :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "0.15" "Version number for this version of Gnus.") (defconst gnus-version (format "Quassia Gnus v%s" gnus-version-number) *** pub/qgnus/lisp/message.el Sun Nov 23 16:26:49 1997 --- qgnus/lisp/message.el Mon Nov 24 18:52:07 1997 *************** *** 32,38 **** (eval-when-compile (require 'cl)) (require 'mailheader) ! (require 'rmail) (require 'nnheader) (require 'timezone) (require 'easymenu) --- 32,40 ---- (eval-when-compile (require 'cl)) (require 'mailheader) ! (condition-case nil ! (require 'rmail) ! (t (message "Ignore any errors about rmail from this file"))) (require 'nnheader) (require 'timezone) (require 'easymenu) *************** *** 2545,2555 **** (defun message-make-organization () "Make an Organization header." (let* ((organization ! (or (getenv "ORGANIZATION") ! (when message-user-organization (if (message-functionp message-user-organization) (funcall message-user-organization) ! message-user-organization))))) (save-excursion (message-set-work-buffer) (cond ((stringp organization) --- 2547,2556 ---- (defun message-make-organization () "Make an Organization header." (let* ((organization ! (when message-user-organization (if (message-functionp message-user-organization) (funcall message-user-organization) ! message-user-organization)))) (save-excursion (message-set-work-buffer) (cond ((stringp organization) *************** *** 3158,3164 **** (unless follow-to (if (or (not wide) to-address) ! (setq follow-to (list (cons 'To (or to-address reply-to from)))) (let (ccalist) (save-excursion (message-set-work-buffer) --- 3159,3168 ---- (unless follow-to (if (or (not wide) to-address) ! (progn ! (setq follow-to (list (cons 'To (or to-address reply-to from)))) ! (when (and wide mct) ! (push (cons 'Cc mct) follow-to))) (let (ccalist) (save-excursion (message-set-work-buffer) *** pub/qgnus/lisp/nnbabyl.el Sat Sep 13 15:43:23 1997 --- qgnus/lisp/nnbabyl.el Mon Nov 24 18:52:07 1997 *************** *** 30,36 **** ;;; Code: (require 'nnheader) ! (require 'rmail) (require 'nnmail) (require 'nnoo) (eval-when-compile (require 'cl)) --- 30,38 ---- ;;; Code: (require 'nnheader) ! (condition-case nil ! (require 'rmail) ! (t (message "Ignore rmail errors from this file, you don't have rmail"))) (require 'nnmail) (require 'nnoo) (eval-when-compile (require 'cl)) *** pub/qgnus/lisp/nndraft.el Sat Oct 4 01:03:34 1997 --- qgnus/lisp/nndraft.el Mon Nov 24 18:52:07 1997 *************** *** 164,171 **** (deffoo nndraft-request-expire-articles (articles group &optional server force) (nndraft-possibly-change-group group) (let* ((nnmh-allow-delete-final t) ! (res (nnmh-request-expire-articles ! articles group server force)) article) ;; Delete all the "state" files of articles that have been expired. (while articles --- 164,172 ---- (deffoo nndraft-request-expire-articles (articles group &optional server force) (nndraft-possibly-change-group group) (let* ((nnmh-allow-delete-final t) ! (res (nnoo-parent-function 'nndraft ! 'nnmh-request-expire-articles ! (list articles group server force))) article) ;; Delete all the "state" files of articles that have been expired. (while articles *************** *** 179,185 **** (deffoo nndraft-request-accept-article (group &optional server last noinsert) (nndraft-possibly-change-group group) (let ((gnus-verbose-backends nil)) ! (nnmh-request-accept-article group server last noinsert))) (deffoo nndraft-request-create-group (group &optional server args) (nndraft-possibly-change-group group) --- 180,187 ---- (deffoo nndraft-request-accept-article (group &optional server last noinsert) (nndraft-possibly-change-group group) (let ((gnus-verbose-backends nil)) ! (nnoo-parent-function 'nndraft 'nnmh-request-accept-article ! (list group server last noinsert)))) (deffoo nndraft-request-create-group (group &optional server args) (nndraft-possibly-change-group group) *** pub/qgnus/lisp/nnml.el Sun Nov 23 16:26:52 1997 --- qgnus/lisp/nnml.el Mon Nov 24 18:52:08 1997 *************** *** 84,89 **** --- 84,91 ---- (defvoo nnml-generate-active-function 'nnml-generate-active-info) + (defvar nnml-nov-buffer-file-name nil) + ;;; Interface functions. *************** *** 658,666 **** (save-excursion (save-restriction (goto-char (point-min)) ! (narrow-to-region ! (point) ! (1- (or (search-forward "\n\n" nil t) (point-max)))) ;; Fold continuation lines. (goto-char (point-min)) (while (re-search-forward "\\(\r?\n[ \t]+\\)+" nil t) --- 660,669 ---- (save-excursion (save-restriction (goto-char (point-min)) ! (unless (zerop (buffer-size)) ! (narrow-to-region ! (point) ! (1- (or (search-forward "\n\n" nil t) (point-max))))) ;; Fold continuation lines. (goto-char (point-min)) (while (re-search-forward "\\(\r?\n[ \t]+\\)+" nil t) *************** *** 674,685 **** (defun nnml-open-nov (group) (or (cdr (assoc group nnml-nov-buffer-alist)) ! (let ((buffer (nnheader-find-file-noselect ! (concat (nnmail-group-pathname group nnml-directory) ! nnml-nov-file-name)))) (save-excursion (set-buffer buffer) ! (buffer-disable-undo (current-buffer))) (push (cons group buffer) nnml-nov-buffer-alist) buffer))) --- 677,690 ---- (defun nnml-open-nov (group) (or (cdr (assoc group nnml-nov-buffer-alist)) ! (let ((buffer (get-buffer-create (format " *nnml overview %s*" group)))) (save-excursion (set-buffer buffer) ! (set (make-local-variable 'nnml-nov-buffer-file-name) ! (concat (nnmail-group-pathname group nnml-directory) ! nnml-nov-file-name)) ! (erase-buffer) ! (nnheader-insert-file-contents nnml-nov-buffer-file-name)) (push (cons group buffer) nnml-nov-buffer-alist) buffer))) *************** *** 689,695 **** (when (buffer-name (cdar nnml-nov-buffer-alist)) (set-buffer (cdar nnml-nov-buffer-alist)) (when (buffer-modified-p) ! (nnmail-write-region 1 (point-max) (buffer-file-name) nil 'nomesg)) (set-buffer-modified-p nil) (kill-buffer (current-buffer))) (setq nnml-nov-buffer-alist (cdr nnml-nov-buffer-alist))))) --- 694,701 ---- (when (buffer-name (cdar nnml-nov-buffer-alist)) (set-buffer (cdar nnml-nov-buffer-alist)) (when (buffer-modified-p) ! (nnmail-write-region 1 (point-max) nnml-nov-buffer-file-name ! nil 'nomesg)) (set-buffer-modified-p nil) (kill-buffer (current-buffer))) (setq nnml-nov-buffer-alist (cdr nnml-nov-buffer-alist))))) *** pub/qgnus/lisp/nnoo.el Sat Sep 13 21:56:52 1997 --- qgnus/lisp/nnoo.el Mon Nov 24 18:52:08 1997 *************** *** 30,35 **** --- 30,36 ---- (defvar nnoo-definition-alist nil) (defvar nnoo-state-alist nil) + (defvar nnoo-parent-backend nil) (defmacro defvoo (var init &optional doc &rest map) "The same as `defvar', only takes list of variables to MAP to." *************** *** 88,110 **** (or (cdr imp) (nnoo-functions (car imp)))) (while functions ! (unless (fboundp (setq function ! (nnoo-symbol backend (nnoo-rest-symbol ! (car functions))))) (eval `(deffoo ,function (&rest args) (,call-function ',backend ',(car functions) args)))) (pop functions))))) (defun nnoo-parent-function (backend function args) ! (let ((pbackend (nnoo-backend function))) ! (nnoo-change-server pbackend (nnoo-current-server backend) (cdr (assq pbackend (nnoo-parents backend)))) (apply function args))) (defun nnoo-execute (backend function &rest args) "Execute FUNCTION on behalf of BACKEND." ! (let ((pbackend (nnoo-backend function))) ! (nnoo-change-server pbackend (nnoo-current-server backend) (cdr (assq pbackend (nnoo-parents backend)))) (apply function args))) --- 89,116 ---- (or (cdr imp) (nnoo-functions (car imp)))) (while functions ! (unless (fboundp ! (setq function ! (nnoo-symbol backend ! (nnoo-rest-symbol (car functions))))) (eval `(deffoo ,function (&rest args) (,call-function ',backend ',(car functions) args)))) (pop functions))))) (defun nnoo-parent-function (backend function args) ! (let ((pbackend (nnoo-backend function)) ! (nnoo-parent-backend backend)) ! (nnoo-change-server pbackend ! (nnoo-current-server backend) (cdr (assq pbackend (nnoo-parents backend)))) (apply function args))) (defun nnoo-execute (backend function &rest args) "Execute FUNCTION on behalf of BACKEND." ! (let ((pbackend (nnoo-backend function)) ! (nnoo-parent-backend backend)) ! (nnoo-change-server pbackend ! (nnoo-current-server backend) (cdr (assq pbackend (nnoo-parents backend)))) (apply function args))) *************** *** 157,164 **** --- 163,175 ---- (let* ((bstate (cdr (assq backend nnoo-state-alist))) (current (car bstate)) (parents (nnoo-parents backend)) + (server (if nnoo-parent-backend + (format "%s+%s" nnoo-parent-backend server) + server)) (bvariables (nnoo-variables backend)) state def) + ;; If we don't have a current state, we push an empty state + ;; onto the alist. (unless bstate (push (setq bstate (list backend nil)) nnoo-state-alist) *************** *** 181,187 **** (set (car def) (cadr def)))) (while parents (nnoo-change-server ! (caar parents) server (mapcar (lambda (def) (list (car def) (symbol-value (cadr def)))) (cdar parents))) (pop parents)))) --- 192,198 ---- (set (car def) (cadr def)))) (while parents (nnoo-change-server ! (caar parents) (format "%s+%s" backend server) (mapcar (lambda (def) (list (car def) (symbol-value (cadr def)))) (cdar parents))) (pop parents)))) *** pub/qgnus/lisp/nntp.el Sun Nov 23 16:26:52 1997 --- qgnus/lisp/nntp.el Mon Nov 24 18:52:08 1997 *************** *** 634,640 **** (when (memq (process-status process) '(open run)) (set-process-sentinel process nil) (ignore-errors ! (nntp-send-string process "QUIT"))) (when (buffer-name (process-buffer process)) (kill-buffer (process-buffer process)))) (nnoo-close-server 'nntp))) --- 634,641 ---- (when (memq (process-status process) '(open run)) (set-process-sentinel process nil) (ignore-errors ! (nntp-send-string process "QUIT") ! (sleep-for 1))) (when (buffer-name (process-buffer process)) (kill-buffer (process-buffer process)))) (nnoo-close-server 'nntp))) *************** *** 645,651 **** (when (memq (process-status process) '(open run)) (set-process-sentinel process nil) (ignore-errors ! (nntp-send-string process "QUIT"))) (when (buffer-name (process-buffer process)) (kill-buffer (process-buffer process)))))) --- 646,653 ---- (when (memq (process-status process) '(open run)) (set-process-sentinel process nil) (ignore-errors ! (nntp-send-string process "QUIT") ! (sleep-for 1))) (when (buffer-name (process-buffer process)) (kill-buffer (process-buffer process)))))) *** pub/qgnus/lisp/ChangeLog Sun Nov 23 16:26:33 1997 --- qgnus/lisp/ChangeLog Mon Nov 24 18:51:45 1997 *************** *** 2,7 **** --- 2,70 ---- * gnus.el: Quassia Gnus v0.1 is released. + Mon Nov 24 18:46:37 1997 Lars Magne Ingebrigtsen + + * gnus.el: Quassia Gnus v0.15 is released. + + Mon Nov 24 18:07:21 1997 Lars Magne Ingebrigtsen + + * gnus-ems.el: Also check major version names. + + 1997-10-05 SL Baur + + * message.el (require 'rmail): Put guard around. + * nnbabyl.el (require 'rmail): Ditto. + + Mon Nov 24 17:36:00 1997 Lars Magne Ingebrigtsen + + * message.el (message-reply): Respect Mail-Copies-To even when + `to-address'. + + Mon Nov 24 17:32:47 1997 Thor Kristoffersen + + * nntp.el (nntp-request-close): Sleep one second. + + Mon Nov 24 16:18:19 1997 Lars Magne Ingebrigtsen + + * gnus-sum.el (gnus-summary-read-group-1): Update marks when not + entering group. + + * gnus-start.el (gnus-setup-news): Get correct value of archive + server. + + Wed Oct 8 20:29:35 1997 Robert Bihlmeyer + + * message.el (message-make-organization): Don't let the + environment variable override a user-set organization. + + Mon Nov 24 14:09:00 1997 Lars Magne Ingebrigtsen + + * nnml.el (nnml-open-nov): Don't use find-file. + + * gnus-sum.el (gnus-last-newsgroup-variables-set): New variable. + (gnus-set-global-variables): Don't do to much; gets run off of + pre-command-hook. + Got rid of gnus-set-global-variables throughout. + (gnus-summary-exit): Update adaptive scoring here. + (gnus-summary-isearch-article): Widen. + + * nnml.el (nnml-parse-head): Work in empty buffers. + + 1997-10-14 Hrvoje Niksic + + * gnus-xmas.el (gnus-xmas-group-startup-message): Check for image + formats correctly. + (gnus-xmas-modeline-glyph): Ditto. + + Mon Nov 24 13:58:12 1997 Hrvoje Niksic + + * gnus-spec.el (gnus-compile): Work under XEmacs. + + Mon Nov 24 07:15:45 1997 Lars Magne Ingebrigtsen + + * nnoo.el (nnoo-change-server): Push the right parent packend onto + the alist. + Sun Nov 23 16:21:41 1997 Lars Magne Ingebrigtsen * gnus.el: Quassia Gnus v0.14 is released. *** pub/qgnus/texi/gnus.texi Sun Nov 23 16:26:57 1997 --- qgnus/texi/gnus.texi Mon Nov 24 18:52:15 1997 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Quassia Gnus 0.110 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Quassia Gnus 0.15 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 313,319 **** @tex @titlepage ! @title Quassia Gnus 0.110 Manual @author by Lars Magne Ingebrigtsen @page --- 313,319 ---- @tex @titlepage ! @title Quassia Gnus 0.15 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 349,355 **** spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Quassia Gnus 0.110. @end ifinfo --- 349,355 ---- spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Quassia Gnus 0.15. @end ifinfo *************** *** 1289,1294 **** --- 1289,1296 ---- (t . my-group-face-5))) @end lisp + Also @pxref{Faces & Fonts}. + Variables that are dynamically bound when the forms are evaluated include: *************** *** 6008,6017 **** highlighting will be done according to the @code{gnus-header-face-alist} variable, which is a list where each element has the form @var{(regexp name content)}. @var{regexp} is a regular expression for matching the ! header, @var{name} is the face used for highlighting the header name and ! @var{content} is the face for highlighting the header value. The first ! match made will be used. Note that @var{regexp} shouldn't have @samp{^} ! prepended---Gnus will add one. @item W H c @kindex W H c (Summary) --- 6010,6019 ---- highlighting will be done according to the @code{gnus-header-face-alist} variable, which is a list where each element has the form @var{(regexp name content)}. @var{regexp} is a regular expression for matching the ! header, @var{name} is the face used for highlighting the header name ! (@pxref{Faces & Fonts}) and @var{content} is the face for highlighting ! the header value. The first match made will be used. Note that ! @var{regexp} shouldn't have @samp{^} prepended---Gnus will add one. @item W H c @kindex W H c (Summary) *************** *** 6037,6046 **** @item gnus-cite-face-list @vindex gnus-cite-face-list ! List of faces used for highlighting citations. When there are citations ! from multiple articles in the same message, Gnus will try to give each ! citation from each article its own face. This should make it easier to ! see who wrote what. @item gnus-supercite-regexp @vindex gnus-supercite-regexp --- 6039,6048 ---- @item gnus-cite-face-list @vindex gnus-cite-face-list ! List of faces used for highlighting citations (@pxref{Faces & Fonts}). ! When there are citations from multiple articles in the same message, ! Gnus will try to give each citation from each article its own face. ! This should make it easier to see who wrote what. @item gnus-supercite-regexp @vindex gnus-supercite-regexp *************** *** 13221,13226 **** --- 13223,13229 ---- * Symbolic Prefixes:: How to supply some Gnus functions with options. * Formatting Variables:: You can specify what buffers should look like. * Windows Configuration:: Configuring the Gnus buffer windows. + * Faces & Fonts:: How to change how faces look. * Compilation:: How to speed Gnus up. * Mode Lines:: Displaying information in the mode lines. * Highlighting and Menus:: Making buffers look all nice and cozy. *************** *** 13761,13766 **** --- 13764,13781 ---- @code{gnus-always-force-window-configuration} to non-@code{nil}. + @node Faces & Fonts + @section Faces & Fonts + @cindex faces + @cindex fonts + @cindex colors + + Fiddling with fonts and faces used to be very difficult, but these days + it is very simple. You simply say @kbd{M-x customize-face}, pick out + the face you want to alter, and alter it via the standard Customize + interface. + + @node Compilation @section Compilation @cindex compilation *************** *** 14477,14483 **** @vindex gnus-picons-database The location of the picons database. Should point to a directory containing the @file{news}, @file{domains}, @file{users} (and so on) ! subdirectories. Defaults to @file{/usr/local/faces}. @item gnus-picons-news-directory @vindex gnus-picons-news-directory --- 14492,14498 ---- @vindex gnus-picons-database The location of the picons database. Should point to a directory containing the @file{news}, @file{domains}, @file{users} (and so on) ! subdirectories. Defaults to @file{/usr/local/faces/}. @item gnus-picons-news-directory @vindex gnus-picons-news-directory *************** *** 15266,15271 **** --- 15281,15287 ---- Joev Dubach, Michael Welsh Duggan, Paul Eggert, + Enami Tsugutomo, @c Enami Michael Ernst, Luc Van Eycken, Sam Falkner, *************** *** 15279,15285 **** Michelangelo Grigni, D. Hall, Magnus Hammerin, ! Kenichi Handa, @c ? Raja R. Harinath, Hisashige Kenji, @c Hisashige Marc Horowitz, --- 15295,15301 ---- Michelangelo Grigni, D. Hall, Magnus Hammerin, ! Kenichi Handa, @c Handa Raja R. Harinath, Hisashige Kenji, @c Hisashige Marc Horowitz, *************** *** 15298,15304 **** Shuhei Kobayashi, @c Kobayashi Thor Kristoffersen, Jens Lautenbacher, ! Seokchan Lee, @c ? Carsten Leonhardt, James LewisMoss, Christian Limpach, --- 15314,15320 ---- Shuhei Kobayashi, @c Kobayashi Thor Kristoffersen, Jens Lautenbacher, ! Seokchan Lee, @c Lee Carsten Leonhardt, James LewisMoss, Christian Limpach, *************** *** 15353,15359 **** Chuck Thompson, Philippe Troin, James Troup, - Enami Tsugutomo, @c ? Aaron M. Ucko, Didier Verna, Jan Vroonhof, --- 15369,15374 ---- *************** *** 17721,17726 **** --- 17736,17744 ---- low-number = flag = "y" / "n" / "m" / "j" / "x" / "=" group @end example + + For a full description of this file, see the manual pages for + @samp{innd}, in particular @samp{active(5)}. @node Newsgroups File Format *** pub/qgnus/texi/message.texi Sat Oct 4 01:03:43 1997 --- qgnus/texi/message.texi Mon Nov 24 18:52:15 1997 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 0.110 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 0.15 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 39,45 **** @tex @titlepage ! @title Message 0.110 Manual @author by Lars Magne Ingebrigtsen @page --- 39,45 ---- @tex @titlepage ! @title Message 0.15 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 79,85 **** * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 0.110. 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 0.15. Message is distributed with the Gnus distribution bearing the same version number as this manual has. *************** *** 478,484 **** @end table ! Note that RFC1036 says that a signature should be preceded by the three characters @samp{-- } on a line by themselves. This is to make it easier for the recipient to automatically recognize and process the signature. So don't remove those characters, even though you might feel --- 478,484 ---- @end table ! Note that RFC1036bis says that a signature should be preceded by the three characters @samp{-- } on a line by themselves. This is to make it easier for the recipient to automatically recognize and process the signature. So don't remove those characters, even though you might feel *** pub/qgnus/texi/ChangeLog Thu Nov 6 20:55:30 1997 --- qgnus/texi/ChangeLog Mon Nov 24 18:52:16 1997 *************** *** 1,3 **** --- 1,7 ---- + Mon Nov 24 16:01:20 1997 Lars Magne Ingebrigtsen + + * gnus.texi (Faces & Fonts): New. + Mon Oct 13 00:08:06 1997 Lars Magne Ingebrigtsen * gnus.texi (Agent Commands): Addition. *** pub/qgnus/texi/dir Wed Jun 18 00:54:19 1997 --- qgnus/texi/dir Sun Nov 23 16:26:57 1997 *************** *** 0 **** --- 1,9 ---- + -*- Text -*- + The Gnus-related 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.