mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 02:31:03 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* 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.
This commit is contained in:
Katsumi Yamaoka 2009-09-09 09:28:43 +00:00
parent f9b7b5acb5
commit de0bdfe7aa
6 changed files with 56 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/gnus/gnus-util.el
View file

@ -285,12 +285,14 @@ Symbols are also allowed; their print names are used instead."
(and (= (car fdate) (car date))
(> (nth 1 fdate) (nth 1 date))))))
(defun gnus-float-time (&optional time)
"Convert time value TIME to a floating point number.
(eval-and-compile
(if (and (fboundp 'float-time)
(subrp (symbol-function 'float-time)))
(defalias 'gnus-float-time 'float-time)
(defun gnus-float-time (&optional time)
"Convert time value TIME to a floating point number.
TIME defaults to the current time."
(if (featurep 'xemacs)
(time-to-seconds (or time (current-time)))
(float-time time)))
(with-no-warnings (time-to-seconds (or time (current-time)))))))
;;; Keymap macros.