Mercurial > emacs
diff lisp/mail/emacsbug.el @ 82429:a026094590fd
(report-emacs-bug): Remove the last number of `emacs-version', use the
topic prefix ``version; ''.
author | Michaël Cadilhac <michael.cadilhac@lrde.org> |
---|---|
date | Fri, 17 Aug 2007 10:10:00 +0000 |
parents | 5d46134ea7dd |
children | e460d01bb038 |
line wrap: on
line diff
--- a/lisp/mail/emacsbug.el Fri Aug 17 07:55:25 2007 +0000 +++ b/lisp/mail/emacsbug.el Fri Aug 17 10:10:00 2007 +0000 @@ -75,7 +75,8 @@ (interactive (reverse (list (recent-keys) (read-string "Bug Subject: ")))) ;; The syntax `version;' is preferred to `[version]' because the ;; latter could be mistakenly stripped by mailing software. - (setq topic (concat "Bug: " emacs-version "; " topic)) + (when (string-match "^\\(\\([.0-9]+\\)*\\)\\.[0-9]+$" emacs-version) + (setq topic (concat (match-string 1 emacs-version) "; " topic))) ;; If there are four numbers in emacs-version, this is a pretest ;; version. (let* ((pretest-p (string-match "\\..*\\..*\\." emacs-version))