Merge changes made in Gnus trunk.

nntp.el (nntp-authinfo-file): Mark as obsolete -- use auth-source instead.
pop3.el (pop3-wait-for-messages): Don't use Gnus functions here.
gnus-util.el (gnus-process-live-p): Copy over compat function.
pop3.el (pop3-wait-for-messages): If the pop3 process dies, stop processing.
nntp.el (nntp-kill-buffer): Kill the process before killing the buffer to avoid warnings.
gnus-agent.el (gnus-agent-expire-done-message): Use %.f as format specified to reduce precision.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 744817e68f2ee6e9a4b3af632c587b80932123ff..4fc144b81b96f72e2fa4b585861149d646578076 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,23 @@
+2011-08-21  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * nntp.el (nntp-authinfo-file): Mark as obsolete -- use auth-source
+       instead.
+
+       * pop3.el (pop3-wait-for-messages): Don't use Gnus functions here.
+
+       * gnus-util.el (gnus-process-live-p): Copy over compat function.
+
+       * pop3.el (pop3-wait-for-messages): If the pop3 process dies, stop
+       processing.
+
+       * nntp.el (nntp-kill-buffer): Kill the process before killing the
+       buffer to avoid warnings.
+
+2011-08-20  Simon Josefsson  <simon@josefsson.org>
+
+       * gnus-agent.el (gnus-agent-expire-done-message): Use %.f as format
+       specified to reduce precision.
+
 2011-08-19  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * nnimap.el (nnimap-transform-headers): Protect against (NIL ...)

diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el
index 424c55c40f572e2b72b73d9308b08d4ca58ce00d..26222119b984073aa67eda0cd1cc71e7df9bceed 100644 (file)
--- a/lisp/gnus/gnus-agent.el
+++ b/lisp/gnus/gnus-agent.el
@@ -3560,7 +3560,7 @@ articles in every agentized group? "))
                 units (cdr units)))
 
         (format "Expiry recovered %d NOV entries, deleted %d files,\
- and freed %f %s."
+ and freed %.f %s."
                 (nth 0 stats)
                 (nth 1 stats)
                 size (car units)))

diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index 03ff4a2ea4beb69809379be24aedfde2ff2297c3..34953611966c0da3d1d440e6416e2602914d616a 100644 (file)
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -1249,6 +1249,13 @@ This function saves the current buffer."
        (with-current-buffer gnus-group-buffer
         (eq major-mode 'gnus-group-mode))))
 
+(defun gnus-process-live-p (process)
+  "Returns non-nil if PROCESS is alive.
+A process is considered alive if its status is `run', `open',
+`listen', `connect' or `stop'."
+  (memq (process-status process)
+        '(run open listen connect stop)))
+
 (defun gnus-remove-if (predicate sequence &optional hash-table-p)
   "Return a copy of SEQUENCE with all items satisfying PREDICATE removed.
 SEQUENCE should be a list, a vector, or a string.  Returns always a list.

diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el
index 986fd51a613d07d9f6dfd0c97e3b8c52c77355dd..325aa67f80d811a8cdf629e5cda07926728b5284 100644 (file)
--- a/lisp/gnus/nntp.el
+++ b/lisp/gnus/nntp.el
@@ -261,6 +261,8 @@ See `nnml-marks-is-evil' for more information.")
                                          (const :format "" "password")
                                          (string :format "Password: %v")))))))
 
+(make-obsolete 'nntp-authinfo-file nil "Emacs 24.1")
+
 \f
 
 (defvoo nntp-connection-timeout nil
@@ -430,6 +432,9 @@ be restored and the command retried."
 
 (defun nntp-kill-buffer (buffer)
   (when (buffer-name buffer)
+    (let ((process (get-buffer-process buffer)))
+      (when process
+       (delete-process process)))
     (kill-buffer buffer)
     (nnheader-init-server-buffer)))
 

diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el
index e29ddb0d44e6d8f3c79af91cbace26636bff6d0a..54c2170383606d6d5fe1b370364237ecb6c4a023 100644 (file)
--- a/lisp/gnus/pop3.el
+++ b/lisp/gnus/pop3.el
@@ -178,6 +178,8 @@ Use streaming commands."
 
 (defun pop3-wait-for-messages (process count total-size)
   (while (< (pop3-number-of-responses total-size) count)
+    (unless (memq (process-status process) '(open run))
+      (error "pop3 process died"))
     (when total-size
       (message "pop3 retrieved %dKB (%d%%)"
               (truncate (/ (buffer-size) 1000))