diff options
| -rw-r--r-- | lisp/gnus/ecomplete.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/gnus/ecomplete.el b/lisp/gnus/ecomplete.el index fd9dfa63b6d..c2a22e3230c 100644 --- a/lisp/gnus/ecomplete.el +++ b/lisp/gnus/ecomplete.el | |||
| @@ -56,7 +56,9 @@ | |||
| 56 | (defun ecomplete-add-item (type key text) | 56 | (defun ecomplete-add-item (type key text) |
| 57 | (let ((elems (assq type ecomplete-database)) | 57 | (let ((elems (assq type ecomplete-database)) |
| 58 | (now (string-to-number | 58 | (now (string-to-number |
| 59 | (format "%.0f" (time-to-seconds (current-time))))) | 59 | (format "%.0f" (if (featurep 'xemacs) |
| 60 | (time-to-seconds (current-time)) | ||
| 61 | (float-time))))) | ||
| 60 | entry) | 62 | entry) |
| 61 | (unless elems | 63 | (unless elems |
| 62 | (push (setq elems (list type)) ecomplete-database)) | 64 | (push (setq elems (list type)) ecomplete-database)) |