summaryrefslogtreecommitdiff
path: root/lisp/gnus/gnus-int.el
diff options
context:
space:
mode:
authorGnus developers <ding@gnus.org>2011-09-10 23:30:53 +0000
committerKatsumi Yamaoka <yamaoka@jpl.org>2011-09-10 23:30:53 +0000
commite21bac426b787ac0f03c3a64341ec98995ea8262 (patch)
treea3877a583cca99774594050a192fde13e57e7b78 /lisp/gnus/gnus-int.el
parent3199b96fc585576ffb2ced6542a2bc2d6172f510 (diff)
downloademacs-e21bac426b787ac0f03c3a64341ec98995ea8262.tar.gz
Merge changes made in Gnus trunk.
gnus.texi: Remove mentions of `recent', which are now obsolete. (Interactive): Document `quiet'. nnimap.el: Redo the charset handling. Let Gnus encode the names, as it does with all other backends, but decode the names immediately after getting them. gnus-group.el (gnus-group-name-charset): Always return `utf-7' when decoding nnimap groups. gnus.el (gnus-variable-list): Don't save `gnus-format-specs' in the newsrc file. It doesn't seem like an important optimisation any more. nnimap.el (nnimap-transform-headers): Fix regexp to be less prone to overflows. gnus.el (gnus-article-mark-lists): Remove `recent'. (gnus-interactive-exit): Extend to `quiet'. gnus-sum.el (gnus-offer-save-summaries): Use it. gnus-art.el (gnus-treat-hide-citation-maybe): Add more doc to the string. plstore.el (plstore--get-buffer): Silence compiler warnings by renaming function arguments from `this'. gnus-sum.el (gnus-newsgroup-recent): Removed. gnus-spec.el (gnus-lrm-string-p): `bidi-string-mark-left-to-right' has been renamed. (gnus-lrm-string-p): Include RLM and PDF, too. gnus-int.el (gnus-open-server): Make the "denied" message clearer (bug#9225).
Diffstat (limited to 'lisp/gnus/gnus-int.el')
-rw-r--r--lisp/gnus/gnus-int.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el
index b9b191cd09c..9877736bb09 100644
--- a/lisp/gnus/gnus-int.el
+++ b/lisp/gnus/gnus-int.el
@@ -255,7 +255,8 @@ If it is down, start it up (again)."
;; If this method was previously denied, we just return nil.
(if (eq (nth 1 elem) 'denied)
(progn
- (gnus-message 1 "Denied server %s" server)
+ (gnus-message
+ 1 "Server %s previously determined to be down; not retrying" server)
nil)
;; Open the server.
(let* ((open-server-function