/[emacs]/emacs/lisp/gnus/imap.el
ViewVC logotype

Diff of /emacs/lisp/gnus/imap.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20 by miles, Sat Feb 19 13:24:16 2005 UTC revision 1.21 by miles, Wed Jun 1 05:07:06 2005 UTC
# Line 640  sure of changing the value of `foo'." Line 640  sure of changing the value of `foo'."
640        (let* ((port (or port imap-default-ssl-port))        (let* ((port (or port imap-default-ssl-port))
641               (coding-system-for-read imap-coding-system-for-read)               (coding-system-for-read imap-coding-system-for-read)
642               (coding-system-for-write imap-coding-system-for-write)               (coding-system-for-write imap-coding-system-for-write)
643               (process-connection-type nil)               (process-connection-type imap-process-connection-type)
644                 (set-process-query-on-exit-flag
645                  (if (fboundp 'set-process-query-on-exit-flag)
646                      'set-process-query-on-exit-flag
647                    'process-kill-without-query))
648               process)               process)
649          (when (progn          (when (progn
650                  (setq process (start-process                  (setq process (start-process
# Line 650  sure of changing the value of `foo'." Line 654  sure of changing the value of `foo'."
654                                              (format-spec-make                                              (format-spec-make
655                                               ?s server                                               ?s server
656                                               ?p (number-to-string port)))))                                               ?p (number-to-string port)))))
657                  (process-kill-without-query process)                  (funcall set-process-query-on-exit-flag process nil)
658                  process)                  process)
659            (with-current-buffer buffer            (with-current-buffer buffer
660              (goto-char (point-min))              (goto-char (point-min))

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26