Mercurial > emacs
diff lisp/gnus/ecomplete.el @ 104889:18c2aea5083c
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.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Wed, 09 Sep 2009 09:28:43 +0000 |
parents | a55980608639 |
children | 1d1d5d9bd884 |
line wrap: on
line diff
--- a/lisp/gnus/ecomplete.el Wed Sep 09 02:38:50 2009 +0000 +++ b/lisp/gnus/ecomplete.el Wed Sep 09 09:28:43 2009 +0000 @@ -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))