From b43246e32d9ff407e7e927c1aa1f3321f11f26a2 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Wed, 5 Mar 1997 05:56:52 +0000 Subject: [PATCH] *** empty log message *** --- lisp/ChangeLog | 38 ++++++++++++++++++++++++++++++++++++++ lisp/gnus-art.el | 25 +++++++++++++++---------- lisp/gnus-group.el | 5 +++-- lisp/gnus-score.el | 10 +++++----- lisp/gnus-sum.el | 17 ++++++++++++----- lisp/gnus-topic.el | 6 ++++-- lisp/gnus-xmas.el | 6 +++--- lisp/gnus.el | 2 +- lisp/nnbabyl.el | 3 ++- lisp/nnkiboze.el | 1 - lisp/nnmbox.el | 3 ++- texi/gnus.texi | 6 +++--- texi/message.texi | 4 ++-- 13 files changed, 90 insertions(+), 36 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4563d043b..38968ac43 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,41 @@ +Tue Feb 18 23:26:28 1997 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.4.14 is released. + +Tue Feb 18 21:47:18 1997 Lars Magne Ingebrigtsen + + * gnus-xmas.el (gnus-xmas-modeline-glyph): Didn't work when the + etc dir couldn't be found. + + * gnus-topic.el (gnus-topic-fold): Enter into dribble. + + * nnbabyl.el (nnbabyl-request-scan): Put things in right dir. + * nnmbox.el (nnmbox-request-scan): Ditto. + + * gnus-sum.el (gnus-offer-save-summaries): Use + `switch-to-buffer'. + + * nnkiboze.el (nnkiboze-enter-nov): Removed debug. + + * gnus-sum.el (gnus-summary-insert-pseudos): Quote when not + viewing separately. + +Sun Feb 16 23:43:19 1997 Hrvoje Niksic + + * gnus-topic.el (gnus-topic-edit-parameters): Print the topic + name. + + * gnus-group.el (gnus-group-edit-group): Print the group name. + +Sun Feb 16 18:30:27 1997 Lars Magne Ingebrigtsen + + * gnus-score.el (gnus-score-adaptive): Respect score adapt + settings. + + * gnus-sum.el (gnus-summary-prev-page): Search all frames for + window. + (gnus-summary-next-page): Ditto. + Sun Feb 16 18:12:01 1997 Lars Magne Ingebrigtsen * gnus.el: Gnus v5.4.13 is released. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 70a82b6f7..130710da2 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -2462,9 +2462,9 @@ groups." :type 'regexp) (defcustom gnus-button-alist - `(("<\\(url: ?\\)?news:\\([^>\n\t ]*\\)>" 0 t + `(("<\\(url: ?\\)?news:\\([^>\n\t ]*@[^>\n\t ]*\\)>" 0 t gnus-button-message-id 2) - ("\\bnews:\\([^\n\t ]+\\)" 0 t gnus-button-message-id 1) + ("\\bnews:\\([^>\n\t ]*@[^>\n\t ]*+\\)" 0 t gnus-button-message-id 1) ("\\(\\b<\\(url: ?\\)?news:\\(//\\)?\\([^>\n\t ]*\\)>\\)" 1 t gnus-button-fetch-group 4) ("\\bnews:\\(//\\)?\\([^>\n\t ]+\\)" 0 t gnus-button-fetch-group 2) @@ -2825,14 +2825,19 @@ specified by `gnus-button-alist'." (defun gnus-button-fetch-group (address) "Fetch GROUP specified by ADDRESS." - (if (not (string-match "^\\([^:/]+\\)\\(:\\([^/]+\\)\\)?/\\(.*\\)$" address)) - (error "Can't parse %s" address) - (gnus-group-read-ephemeral-group - (match-string 4 address) - `(nntp ,(match-string 1 address) (nntp-address ,(match-string 1 address)) - (nntp-port-number ,(if (match-end 3) - (match-string 3 address) - "nntp")))))) + (if (not (string-match "[:/]" address)) + ;; This is just a simple group url. + (gnus-group-read-ephemeral-group address gnus-select-method) + (if (not (string-match "^\\([^:/]+\\)\\(:\\([^/]+\\)/\\)?\\(.*\\)$" + address)) + (error "Can't parse %s" address) + (gnus-group-read-ephemeral-group + (match-string 4 address) + `(nntp ,(match-string 1 address) + (nntp-address ,(match-string 1 address)) + (nntp-port-number ,(if (match-end 3) + (match-string 3 address) + "nntp"))))))) (defun gnus-split-string (string pattern) "Return a list of substrings of STRING which are separated by PATTERN." diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index e52833730..4e6f8c43c 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -1883,11 +1883,12 @@ and NEW-NAME will be prompted for." (t info)) ;; The proper documentation. (format - "Editing the %s." + "Editing the %s for `%s'." (cond ((eq part 'method) "select method") ((eq part 'params) "group parameters") - (t "group info"))) + (t "group info")) + group) `(lambda (form) (gnus-group-edit-group-done ',part ,group form))))) diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el index 868590587..ded98112d 100644 --- a/lisp/gnus-score.el +++ b/lisp/gnus-score.el @@ -2053,7 +2053,7 @@ SCORE is the score to add." (defun gnus-score-adaptive () "Create adaptive score rules for this newsgroup." - (when gnus-use-adaptive-scoring + (when gnus-newsgroup-adaptive ;; We change the score file to the adaptive score file. (save-excursion (set-buffer gnus-summary-buffer) @@ -2062,8 +2062,8 @@ SCORE is the score to add." (gnus-score-file-name gnus-newsgroup-name gnus-adaptive-file-suffix)))) ;; Perform ordinary line scoring. - (when (or (not (listp gnus-use-adaptive-scoring)) - (memq 'line gnus-use-adaptive-scoring)) + (when (or (not (listp gnus-newsgroup-adaptive)) + (memq 'line gnus-newsgroup-adaptive)) (save-excursion (let* ((malist (gnus-copy-sequence gnus-adaptive-score-alist)) (alist malist) @@ -2122,8 +2122,8 @@ SCORE is the score to add." (setq data (cdr data)))))) ;; Perform adaptive word scoring. - (when (and (listp gnus-use-adaptive-scoring) - (memq 'word gnus-use-adaptive-scoring)) + (when (and (listp gnus-newsgroup-adaptive) + (memq 'word gnus-newsgroup-adaptive)) (nnheader-temp-write nil (let* ((hashtb (gnus-make-hashtable 1000)) (date (gnus-day-number (current-time-string))) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 5bbc0efb2..08f6332ea 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -1051,14 +1051,16 @@ simple-first is t, first argument is already simplified." ;; We check that this is, indeed, a summary buffer. (and (eq major-mode 'gnus-summary-mode) ;; Also make sure this isn't bogus. - gnus-newsgroup-prepared)) + gnus-newsgroup-prepared + ;; Also make sure that this isn't a dead summary buffer. + (not gnus-dead-summary-mode))) (push bufname buffers)) (setq buflist (cdr buflist))) ;; Go through all these summary buffers and offer to save them. (when buffers (map-y-or-n-p "Update summary buffer %s? " - (lambda (buf) (set-buffer buf) (gnus-summary-exit)) + (lambda (buf) (switch-to-buffer buf) (gnus-summary-exit)) buffers))))) (defun gnus-summary-bubble-group () @@ -5395,7 +5397,7 @@ article." (setq gnus-summary-buffer (current-buffer)) (gnus-set-global-variables) (let ((article (gnus-summary-article-number)) - (article-window (get-buffer-window gnus-article-buffer)) + (article-window (get-buffer-window gnus-article-buffer t)) (endp nil)) (gnus-configure-windows 'article) (if (eq (cdr (assq article gnus-newsgroup-reads)) gnus-canceled-mark) @@ -5431,7 +5433,7 @@ Argument LINES specifies lines to be scrolled down." (interactive "P") (gnus-set-global-variables) (let ((article (gnus-summary-article-number)) - (article-window (get-buffer-window gnus-article-buffer))) + (article-window (get-buffer-window gnus-article-buffer t))) (gnus-configure-windows 'article) (if (or (null gnus-current-article) (null gnus-article-current) @@ -8276,7 +8278,12 @@ save those articles instead." (funcall (if (string-match "%s" action) 'format 'concat) action - (mapconcat (lambda (f) f) files " "))))) + (mapconcat + (lambda (f) + (if (equal f " ") + f + (gnus-quote-arg-for-sh-or-csh f))) + files " "))))) (setq ps (cdr ps))))) (if (and gnus-view-pseudos (not not-view)) (while pslist diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el index c4f8a84d5..037ef4002 100644 --- a/lisp/gnus-topic.el +++ b/lisp/gnus-topic.el @@ -490,7 +490,8 @@ articles in the topic and its subtopics." (gnus-topic-alist gnus-topic-active-alist) (gnus-group-list-mode (cons 5 t))) (gnus-topic-remove-topic - (or insert (not (gnus-topic-visible-p))) nil nil 9))))))) + (or insert (not (gnus-topic-visible-p))) nil nil 9) + (gnus-topic-enter-dribble))))))) (defun gnus-topic-insert-topic-line (name visiblep shownp level entries &optional unread) @@ -1280,7 +1281,8 @@ If performed on a topic, edit the topic parameters instead." (let ((topic (gnus-group-topic-name))) (gnus-edit-form (gnus-topic-parameters topic) - "Editing the topic parameters." + (format "Editing the topic parameters for `%s'." + (or group topic)) `(lambda (form) (gnus-topic-set-parameters ,topic form))))))) diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el index 8801f0300..60d347d04 100644 --- a/lisp/gnus-xmas.el +++ b/lisp/gnus-xmas.el @@ -741,9 +741,9 @@ XEmacs compatibility workaround." (glyph (make-glyph file))) (when (and (featurep 'x) (file-exists-p file)) - (set-glyph-face glyph 'modeline-buffer-id)) - (set-glyph-property glyph 'image (cons 'tty "Gnus:")) - glyph))) + (set-glyph-face glyph 'modeline-buffer-id) + (set-glyph-property glyph 'image (cons 'tty "Gnus:")) + glyph)))) (defun gnus-xmas-mode-line-buffer-identification (line) (let ((line (car line)) diff --git a/lisp/gnus.el b/lisp/gnus.el index 1572a4a3f..488aa5700 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -223,7 +223,7 @@ is restarted, and sometimes reloaded." :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) -(defconst gnus-version-number "5.4.13" +(defconst gnus-version-number "5.4.14" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) diff --git a/lisp/nnbabyl.el b/lisp/nnbabyl.el index 40c05d6a8..09056994d 100644 --- a/lisp/nnbabyl.el +++ b/lisp/nnbabyl.el @@ -218,7 +218,8 @@ (save-excursion (set-buffer nnbabyl-mbox-buffer) (save-buffer))) - nnbabyl-mbox-file group + (file-name-directory nnbabyl-mbox-file) + group (lambda () (save-excursion (let ((in-buf (current-buffer))) diff --git a/lisp/nnkiboze.el b/lisp/nnkiboze.el index c7b4f0d69..a5e02ae99 100644 --- a/lisp/nnkiboze.el +++ b/lisp/nnkiboze.el @@ -314,7 +314,6 @@ Finds out what articles are to be part of the nnkiboze groups." (save-excursion (set-buffer buffer) (goto-char (point-max)) - (debug) (let ((xref (mail-header-xref header)) (prefix (gnus-group-real-prefix group)) (oheader (copy-sequence header)) diff --git a/lisp/nnmbox.el b/lisp/nnmbox.el index 8b0002ecd..e9457a276 100644 --- a/lisp/nnmbox.el +++ b/lisp/nnmbox.el @@ -194,7 +194,8 @@ (save-excursion (set-buffer nnmbox-mbox-buffer) (save-buffer))) - nnmbox-mbox-file group + (file-name-directory nnmbox-mbox-file) + group (lambda () (save-excursion (let ((in-buf (current-buffer))) diff --git a/texi/gnus.texi b/texi/gnus.texi index 91168ff0b..807c86469 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -4313,9 +4313,9 @@ also mark excluded ticked and dormant articles as read. @cindex threading @cindex article threading -Gnus threads articles by default. @dfn{To thread} is to put replies to -articles directly after the articles they reply to---in a hierarchical -fashion. +Gnus threads articles by default. @dfn{To thread} is to put responses +to articles directly after the articles they respond to---in a +hierarchical fashion. @menu * Customizing Threading:: Variables you can change to affect the threading. diff --git a/texi/message.texi b/texi/message.texi index fbd68bee4..52df9faa3 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -932,9 +932,9 @@ you send to mailing lists, you could do something like the following: (defun my-message-header-setup-hook () (when (or (message-fetch-field "newsgroups") (gnus-group-find-parameter - gnus-newsgroup-namegroup 'to-address) + gnus-newsgroup-name 'to-address) (gnus-group-find-parameter - gnus-newsgroup-namegroup 'to-list)) + gnus-newsgroup-name 'to-list)) (insert "Mail-Copies-To: never\n"))) (add-hook 'message-header-setup-hook 'my-message-header-setup-hook) -- 2.25.1