procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/gnus/nnimap.el (nnimap-keepalive): Don't throw an error if there's no

Browse source 
more imap process running.
This commit is contained in:
Stefan Monnier 2013-01-14 23:26:28 -05:00
parent 6e8cd0aeca
commit ef8214345b
2 changed files with 14 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/gnus/ChangeLog
View file

@ -1,7 +1,12 @@
2013-01-15 Stefan Monnier <monnier@iro.umontreal.ca>
* nnimap.el (nnimap-keepalive): Don't throw an error if there's no more
imap process running.
2013-01-14 Julien Danjou <julien@danjou.info>
* gnus-sum.el (gnus-summary-from-or-to-or-newsgroups): Compare
addresses against addresses, not against the full From field.
* gnus-sum.el (gnus-summary-from-or-to-or-newsgroups):
Compare addresses against addresses, not against the full From field.
2013-01-13 Richard Stallman <rms@gnu.org>
@ -178,8 +183,8 @@
the `face' property with a list whose car is the face specified in the
format string and whose cdr is (nil).
* lisp/gnus-util.el
(gnus-put-text-property-excluding-characters-with-faces): Change
accordingly.
(gnus-put-text-property-excluding-characters-with-faces):
Change accordingly.
(gnus-get-text-property-excluding-characters-with-faces): New function.
* lisp/gnus-sum.el (gnus-summary-highlight-line):
* lisp/gnus-salt.el (gnus-tree-highlight-node):
@ -227,8 +232,8 @@
2012-12-22 Philipp Haselwarter <philipp@haselwarter.org>
* gnus-sync.el (gnus-sync-file-encrypt-to, gnus-sync-save): Set
epa-file-encrypt-to from variable to avoid querying.
* gnus-sync.el (gnus-sync-file-encrypt-to, gnus-sync-save):
Set epa-file-encrypt-to from variable to avoid querying.
2012-12-14 Akinori MUSHA <knu@iDaemons.org> (tiny change)

5
lisp/gnus/nnimap.el
View file

@ -339,7 +339,8 @@ textual parts.")
(nnimap-last-command-time nnimap-object)))
;; More than five minutes since the last command.
(* 5 60)))
(nnimap-send-command "NOOP")))))))
(ignore-errors ;E.g. "buffer foo has no process".
(nnimap-send-command "NOOP"))))))))
(defun nnimap-open-connection (buffer)
;; Be backwards-compatible -- the earlier value of nnimap-stream was
@ -367,7 +368,7 @@ textual parts.")
(defun nnimap-open-connection-1 (buffer)
(unless nnimap-keepalive-timer
(setq nnimap-keepalive-timer (run-at-time (* 60 15) (* 60 15)
'nnimap-keepalive)))
#'nnimap-keepalive)))
(with-current-buffer (nnimap-make-process-buffer buffer)
(let* ((coding-system-for-read 'binary)
(coding-system-for-write 'binary)