Mercurial > emacs
changeset 110201:46435634bd67
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.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Sun, 05 Sep 2010 04:01:41 +0000 |
| parents | ca957835ff5a |
| children | 6a6bf4529cad |
| files | lisp/gnus/ChangeLog lisp/gnus/pop3.el |
| diffstat | 2 files changed, 14 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sun Sep 05 04:06:39 2010 +0200 +++ b/lisp/gnus/ChangeLog Sun Sep 05 04:01:41 2010 +0000 @@ -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
--- a/lisp/gnus/pop3.el Sun Sep 05 04:06:39 2010 +0200 +++ b/lisp/gnus/pop3.el Sun Sep 05 04:01:41 2010 +0000 @@ -301,6 +301,13 @@ (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 @@ (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