Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
02e8d7e9
Commit
02e8d7e9
authored
Feb 01, 2012
by
Lars Ingebrigtsen
Committed by
Katsumi Yamaoka
Feb 01, 2012
Browse files
gnus-group.el: Make error reporting when doing `M-g' work again
nntp.el: Make nntp report connection errors better
parent
b5235dd9
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
12 additions
and
4 deletions
+12
-4
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+7
-0
lisp/gnus/gnus-group.el
lisp/gnus/gnus-group.el
+1
-4
lisp/gnus/nntp.el
lisp/gnus/nntp.el
+4
-0
No files found.
lisp/gnus/ChangeLog
View file @
02e8d7e9
2012-02-01 Lars Ingebrigtsen <larsi@gnus.org>
* gnus-group.el (gnus-group-get-new-news-this-group): Don't overwrite
the real error message with the useless "previously known to be down".
Which isn't even correct.
* nntp.el (nntp-open-connection): Report the error message if the nntp
server can't be reached.
* nnimap.el (nnimap-retrieve-group-data-early): Keep track of how many
groups we do a total scan for.
(nnimap-wait-for-response): Say that we're doing a total scan, if we're
...
...
lisp/gnus/gnus-group.el
View file @
02e8d7e9
...
...
@@ -4070,10 +4070,7 @@ If DONT-SCAN is non-nil, scan non-activated groups as well."
(
gnus-agent-save-group-info
method
(
gnus-group-real-name
group
)
active
))
(
gnus-group-update-group
group
nil
t
))
(
if
(
eq
(
gnus-server-status
(
gnus-find-method-for-group
group
))
'denied
)
(
gnus-error
3
"Server previously determined to be down; not retrying"
)
(
gnus-error
3
"%s error: %s"
group
(
gnus-status-message
group
)))))
(
gnus-error
3
"%s error: %s"
group
(
gnus-status-message
group
))))
(
when
beg
(
goto-char
beg
))
(
when
gnus-goto-next-group-when-activating
...
...
lisp/gnus/nntp.el
View file @
02e8d7e9
...
...
@@ -1385,6 +1385,10 @@ password contained in '~/.nntp-authinfo'."
(
nnheader-cancel-timer
timer
))
(
when
(
and
process
(
not
(
memq
(
process-status
process
)
'
(
open
run
))))
(
with-current-buffer
pbuffer
(
goto-char
(
point-min
))
(
nnheader-report
'nntp
"Error when connecting: %s"
(
buffer-substring
(
point
)
(
line-end-position
))))
(
setq
process
nil
))
(
unless
process
(
nntp-kill-buffer
pbuffer
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment