mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-02 11:50:48 -08:00
Code Issues Projects Releases Wiki Activity

pop3-set-process-query-on-exit-flag: New function that's an alias to set-process-query-on-exit-flag, or process-kill-without-query for XEmacs and old Emacsen.

Browse source
This commit is contained in:
Katsumi Yamaoka 2010-09-05 04:01:41 +00:00
parent 733946e777
commit c6faacb4d7
2 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View file

@ -1,3 +1,9 @@
2010-09-05 Katsumi Yamaoka <yamaoka@jpl.org>
* pop3.el (pop3-set-process-query-on-exit-flag): New function that's an
alias to set-process-query-on-exit-flag or process-kill-without-query.
(pop3-open-server): Use it.
2010-09-04 Lars Magne Ingebrigtsen <larsi@gnus.org>
* mail-source.el (mail-source-delete-crash-box): Always move the crash

9
lisp/gnus/pop3.el
View file

@ -301,6 +301,13 @@ this is nil, `ssl' is assumed for connexions to port
(const :tag "SSL/TLS" ssl)
(const starttls)))
(eval-and-compile
(if (fboundp 'set-process-query-on-exit-flag)
(defalias 'pop3-set-process-query-on-exit-flag
'set-process-query-on-exit-flag)
(defalias 'pop3-set-process-query-on-exit-flag
'process-kill-without-query)))
(defun pop3-open-server (mailhost port)
"Open TCP connection to MAILHOST on PORT.
Returns the process associated with the connection."
@ -361,7 +368,7 @@ Returns the process associated with the connection."
(setq pop3-timestamp
(substring response (or (string-match "<" response) 0)
(+ 1 (or (string-match ">" response) -1)))))
(set-process-query-on-exit-flag process nil)
(pop3-set-process-query-on-exit-flag process nil)
process)))
;; Support functions