Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-187

Merge from gnus--rel--5.10

Patches applied:

 * gnus--rel--5.10  (patch 39-44)

   - Merge from emacs--cvs-trunk--0
   - Update from CVS

2005-03-16  Reiner Steib  <Reiner.Steib@gmx.de>

   * lisp/gnus/nnimap.el (nnimap-open-connection): Print which authinfo file is
   used.

   * lisp/gnus/nneething.el (nneething-map-file-directory): Derive from
   `gnus-directory'.

   * lisp/gnus/gnus-art.el (gnus-header-button-alist): Use `gnus-msg-mail' for
   the To/Cc button.

2005-03-15  Reiner Steib  <Reiner.Steib@gmx.de>

   * lisp/gnus/nnmaildir.el (nnmaildir-request-accept-article): Use
   `nnheader-cancel-timer' for compatibility with current XEmacs.

2005-03-13  Steve Youngs  <steve@sxemacs.org>

   * lisp/gnus/gnus.el: Don't try and mark `gnus-agent-save-groups' as an
   autoloaded function.
   From: Andrey Slusar <anrays@gmail.com>.

2005-03-13  Steve Youngs  <steve@sxemacs.org>

   * lisp/gnus/mm-url.el: Require timer-funcs at compile time when in XEmacs
   for `with-timeout'.

   * lisp/gnus/mail-source.el: Require timer-funcs at compile time when in
   XEmacs for `run-with-idle-timer'.

   * lisp/gnus/gnus-async.el: Ditto.

   * lisp/gnus/dgnushack.el: No need to ignore `run-with-idle-timer', XEmacs
   has this function now.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 71d8dc2979b23f6005afccc627fd4cb44ed4336d..b997b86b0c85399c1bb2b44c28e4f51d978faa17 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,38 @@
+2005-03-16  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * nnimap.el (nnimap-open-connection): Print which authinfo file is
+       used.
+
+       * nneething.el (nneething-map-file-directory): Derive from
+       `gnus-directory'.
+
+       * gnus-art.el (gnus-header-button-alist): Use `gnus-msg-mail' for
+       the To/Cc button.
+
+2005-03-15  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * nnmaildir.el (nnmaildir-request-accept-article): Use
+       `nnheader-cancel-timer' for compatibility with current XEmacs.
+
+2005-03-13  Steve Youngs  <steve@sxemacs.org>
+
+       * gnus.el: Don't try and mark `gnus-agent-save-groups' as an
+       autoloaded function.
+       From: Andrey Slusar <anrays@gmail.com>.
+
+2005-03-13  Steve Youngs  <steve@sxemacs.org>
+
+       * mm-url.el: Require timer-funcs at compile time when in XEmacs
+       for `with-timeout'.
+
+       * mail-source.el: Require timer-funcs at compile time when in
+       XEmacs for `run-with-idle-timer'.  
+
+       * gnus-async.el: Ditto.
+
+       * dgnushack.el: No need to ignore `run-with-idle-timer', XEmacs
+       has this function now. 
+
 2005-03-16  Lute Kamstra  <lute@gnu.org>
 
        * message.el (message-make-date): Require parse-time.

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 1fe9348f759fa0b42697a8100e419f7ca499cef0..ff04bfbb56f95dcb11c68224a7e4d88d6055a34d 100644 (file)
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -6336,7 +6336,7 @@ variable it the real callback function."
     ("^\\(From\\|Reply-To\\):" ": *\\(.+\\)$"
      1 (>= gnus-button-message-level 0) gnus-button-reply 1)
     ("^\\(Cc\\|To\\):" "[^ \t\n<>,()\"]+@[^ \t\n<>,()\"]+"
-     0 (>= gnus-button-message-level 0) gnus-button-mailto 0)
+     0 (>= gnus-button-message-level 0) gnus-msg-mail 0)
     ("^X-[Uu][Rr][Ll]:" gnus-button-url-regexp
      0 (>= gnus-button-browse-level 0) browse-url 0)
     ("^Subject:" gnus-button-url-regexp

diff --git a/lisp/gnus/gnus-async.el b/lisp/gnus/gnus-async.el
index 43ab0bc887d7b6df99ab512e0ec47459ae53b61b..fef7228d13bc7e8d01f76dcc4c47a6f26b235736 100644 (file)
--- a/lisp/gnus/gnus-async.el
+++ b/lisp/gnus/gnus-async.el
@@ -32,6 +32,10 @@
 (require 'gnus-sum)
 (require 'nntp)
 
+(eval-when-compile
+  (when (featurep 'xemacs)
+    (require 'timer-funcs)))
+
 (defgroup gnus-asynchronous nil
   "Support for asynchronous operations."
   :group 'gnus)

diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index fa1da9e82f8e00f2e77f8ca774eb4ba151c40a85..3112a07cb2ef3c17cc5b6bd570d2e37d427bcca2 100644 (file)
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -2726,7 +2726,7 @@ gnus-registry.el will populate this if it's loaded.")
       gnus-async-prefetch-article gnus-async-prefetch-remove-group
       gnus-async-halt-prefetch)
      ("gnus-agent" gnus-open-agent gnus-agent-get-function
-      gnus-agent-save-groups gnus-agent-save-active gnus-agent-method-p
+      gnus-agent-save-active gnus-agent-method-p
       gnus-agent-get-undownloaded-list gnus-agent-fetch-session
       gnus-summary-set-agent-mark gnus-agent-save-group-info
       gnus-agent-request-article gnus-agent-retrieve-headers)

diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el
index 6ff642ac24b24dee1848c93e30f930afdb41c6db..e9cee4fa6f2f5cb95f095e6d6d7e84eb594f62c2 100644 (file)
--- a/lisp/gnus/mail-source.el
+++ b/lisp/gnus/mail-source.el
@@ -862,7 +862,7 @@ See the Gnus manual for details."
 
 (eval-when-compile
   (if (featurep 'xemacs)
-      (require 'itimer)
+      (require 'timer-funcs)
     (require 'timer)))
 
 (defun mail-source-start-idle-timer ()

diff --git a/lisp/gnus/mm-url.el b/lisp/gnus/mm-url.el
index 29d956ba64f98fbd6a90a3d8d5740cf66d8b22a3..a66c03908eb652b9aede83038f099adbc55b47bd 100644 (file)
--- a/lisp/gnus/mm-url.el
+++ b/lisp/gnus/mm-url.el
@@ -38,7 +38,9 @@
   (autoload 'executable-find "executable"))
 
 (eval-when-compile
-  (require 'timer))
+  (if (featurep 'xemacs)
+      (require 'timer-funcs)
+    (require 'timer)))
 
 (defgroup mm-url nil
   "A wrapper of url package and external url command for Gnus."

diff --git a/lisp/gnus/nneething.el b/lisp/gnus/nneething.el
index 7028e239a52844e220806bb0c28732dbee4997b2..d7698efb845f3dd7c3d8476bb05d2dd28d7eed5d 100644 (file)
--- a/lisp/gnus/nneething.el
+++ b/lisp/gnus/nneething.el
@@ -37,7 +37,8 @@
 
 (nnoo-declare nneething)
 
-(defvoo nneething-map-file-directory "~/.nneething/"
+(defvoo nneething-map-file-directory
+  (nnheader-concat gnus-directory ".nneething/")
   "Where nneething stores the map files.")
 
 (defvoo nneething-map-file ".nneething"

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index 09d9aef6f316349db4d84a6102d7d3e7a1db4499..06bc1d76134def7f967dc628da6eb869c5f57d08 100644 (file)
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -728,7 +728,9 @@ If EXAMINE is non-nil the group is selected read-only."
                (imap-capability 'IMAP4rev1 nnimap-server-buffer))
       (imap-close nnimap-server-buffer)
       (nnheader-report 'nnimap "Server %s is not IMAP4 compliant" server))
-    (let* ((list (gnus-parse-netrc nnimap-authinfo-file))
+    (let* ((list (progn (gnus-message 7 "Parsing authinfo file `%s'."
+                                     nnimap-authinfo-file)
+                       (gnus-parse-netrc nnimap-authinfo-file)))
           (port (if nnimap-server-port
                     (int-to-string nnimap-server-port)
                   "imap"))

diff --git a/lisp/gnus/nnmaildir.el b/lisp/gnus/nnmaildir.el
index 25cbbc8db48d14e67cc4a6a40e67a40bc2531500..618418907e831500d5c45b246a062cad185a4992 100644 (file)
--- a/lisp/gnus/nnmaildir.el
+++ b/lisp/gnus/nnmaildir.el
@@ -1344,7 +1344,7 @@ by nnmaildir-request-article.")
         (write-region (point-min) (point-max) tmpfile nil 'no-message nil
                       'excl)
         (unix-sync))) ;; no fsync :(
-      (cancel-timer 24h)
+      (nnheader-cancel-timer 24h)
       (condition-case err
          (add-name-to-file tmpfile curfile)
        (error