2009-09-09 Katsumi Yamaoka <yamaoka@jpl.org>

* gnus-util.el (gnus-float-time): Alias to float-time if it exists.

* ecomplete.el (with-no-warnings): Define it for old Emacsen.
(ecomplete-add-item): Don't use (featurep 'xemacs) to check if
float-time is available; suppress compile warning for time-to-seconds.

2009-09-07  Katsumi Yamaoka  <yamaoka@jpl.org>

* mm-encode.el (mm-encode-buffer): Don't force 7bit encoding since MTA
may break data.  Suggested by Dmitri Paduchikh <dpaduch@k66.ru>.
Add the optional argument `encoding' that overrides the default.

* mml.el (mml-generate-mime-1): Pass encoding defined by a user to
mm-encode-buffer.

2009-09-02  Karl Kleinpaste  <karl@kleinpaste.org>

* gnus-art.el (gnus-article-read-summary-keys):
Fix gnus-buffer-configuration's value temporarily used.

1 files changed, 10 insertions, 3 deletions

diff --git a/lisp/gnus/ecomplete.el b/lisp/gnus/ecomplete.el
index c2a22e3230c..ece8f2deff4 100644
--- a/lisp/gnus/ecomplete.el
+++ b/lisp/gnus/ecomplete.el
@@ -27,6 +27,11 @@
 (eval-when-compile
   (require 'cl))
 
+(eval-when-compile
+  (unless (fboundp 'with-no-warnings)
+    (defmacro with-no-warnings (&rest body)
+      `(progn ,@body))))
+
 (defgroup ecomplete nil
   "Electric completion of email addresses and the like."
   :group 'mail)
@@ -56,9 +61,11 @@
 (defun ecomplete-add-item (type key text)
   (let ((elems (assq type ecomplete-database))
         (now (string-to-number
-              (format "%.0f" (if (featurep 'xemacs)
-                                 (time-to-seconds (current-time))
-                               (float-time)))))
+              (format "%.0f" (if (and (fboundp 'float-time)
+                                      (subrp (symbol-function 'float-time)))
+                                 (float-time)
+                               (with-no-warnings
+                                 (time-to-seconds (current-time)))))))
         entry)
     (unless elems
       (push (setq elems (list type)) ecomplete-database))