[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/emacsbug.el,v
From: |
Michael Cadilhac |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/emacsbug.el,v |
Date: |
Fri, 17 Aug 2007 10:10:00 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Michael Cadilhac <cadilhac> 07/08/17 10:10:00
Index: emacsbug.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/emacsbug.el,v
retrieving revision 1.75
retrieving revision 1.76
diff -u -b -r1.75 -r1.76
--- emacsbug.el 15 Aug 2007 02:23:22 -0000 1.75
+++ emacsbug.el 17 Aug 2007 10:10:00 -0000 1.76
@@ -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))