[Emacs-diffs] /srv/bzr/emacs/trunk r101352: 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.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 101352
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sun 2010-09-05 04:01:41 +0000
message:
  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.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/pop3.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-09-05 01:27:15 +0000
+++ b/lisp/gnus/ChangeLog       2010-09-05 04:01:41 +0000
@@ -1,3 +1,9 @@
+2010-09-05  Katsumi Yamaoka  <address@hidden>
+
+       * 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  <address@hidden>
 
        * mail-source.el (mail-source-delete-crash-box): Always move the crash

=== modified file 'lisp/gnus/pop3.el'
--- a/lisp/gnus/pop3.el 2010-09-05 01:18:05 +0000
+++ b/lisp/gnus/pop3.el 2010-09-05 04:01:41 +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