diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-07-23 05:22:20 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-07-23 05:22:20 +0000 |
| commit | 02efb5eee680f8d1f4fa932106ed492c2fd7ff4b (patch) | |
| tree | 4b32e4be636d07aaaabf230ae7a81ecf828f7d04 /lisp/gnus/gnus-msg.el | |
| parent | afacaa1b181c04800688face1880fbfd410a9cee (diff) | |
| download | emacs-02efb5eee680f8d1f4fa932106ed492c2fd7ff4b.tar.gz | |
Calculate gnus-version correctly on Cygwin
* gnus.el (gnus-continuum-version): Do main calculations in integers.
(gnus-continuum-version-1): New function, return a string.
* gnus-msg.el (gnus-extended-version, gnus-bug):
Use gnus-continuum-version-1 instead of gnus-continuum-version.
Diffstat (limited to 'lisp/gnus/gnus-msg.el')
| -rw-r--r-- | lisp/gnus/gnus-msg.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index e3f18662af4..761156b89c6 100644 --- a/lisp/gnus/gnus-msg.el +++ b/lisp/gnus/gnus-msg.el @@ -1132,7 +1132,7 @@ See the variable `gnus-user-agent'." (gnus-v (when (memq 'gnus gnus-user-agent) (concat "Gnus/" - (prin1-to-string (gnus-continuum-version gnus-version) t) + (gnus-continuum-version-1 gnus-version) " (" gnus-version ")"))) (emacs-v (gnus-emacs-version))) (concat gnus-v (when (and gnus-v emacs-v) " ") @@ -1534,7 +1534,7 @@ If YANK is non-nil, include the original article." (X-Debbugs-Package . ,(format "%s" gnus-bug-package)) (X-Debbugs-Version - . ,(format "%s" (gnus-continuum-version)))))) + . ,(gnus-continuum-version-1))))) (when gnus-bug-create-help-buffer (push `(gnus-bug-kill-buffer) message-send-actions)) (goto-char (point-min)) |