Mercurial > emacs

comparison lisp/mail/emacsbug.el @ 82434:e460d01bb038

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(report-emacs-bug): Make MS-DOS a special case (there's no build number).
author Michaël Cadilhac <michael.cadilhac@lrde.org>
date Fri, 17 Aug 2007 19:38:38 +0000
parents a026094590fd
children 2a69b973fae2 417443aefcdd aaccdab0ee26
comparison
equal deleted inserted replaced
82433:4e36d5b6841f 82434:e460d01bb038
73 ;; This strange form ensures that (recent-keys) is the value before 73 ;; This strange form ensures that (recent-keys) is the value before
74 ;; the bug subject string is read. 74 ;; the bug subject string is read.
75 (interactive (reverse (list (recent-keys) (read-string "Bug Subject: ")))) 75 (interactive (reverse (list (recent-keys) (read-string "Bug Subject: "))))
76 ;; The syntax `version;' is preferred to `[version]' because the 76 ;; The syntax `version;' is preferred to `[version]' because the
77 ;; latter could be mistakenly stripped by mailing software. 77 ;; latter could be mistakenly stripped by mailing software.
78 (when (string-match "^\\(\\([.0-9]+\\)*\\)\\.[0-9]+$" emacs-version) 78 (if (eq system-type 'ms-dos)
79 (setq topic (concat (match-string 1 emacs-version) "; " topic))) 79 (setq topic (concat emacs-version "; " topic))
80 ;; If there are four numbers in emacs-version, this is a pretest 80 (when (string-match "^\\(\\([.0-9]+\\)*\\)\\.[0-9]+$" emacs-version)
81 ;; version. 81 (setq topic (concat (match-string 1 emacs-version) "; " topic))))
82 (let* ((pretest-p (string-match "\\..*\\..*\\." emacs-version)) 82 ;; If there are four numbers in emacs-version (three for MS-DOS),
83 ;; this is a pretest version.
84 (let* ((pretest-p (string-match (if (eq system-type 'ms-dos)
85 "\\..*\\."
86 "\\..*\\..*\\.")
87 emacs-version))
83 (from-buffer (current-buffer)) 88 (from-buffer (current-buffer))
84 (reporting-address (if pretest-p 89 (reporting-address (if pretest-p
85 report-emacs-bug-pretest-address 90 report-emacs-bug-pretest-address
86 report-emacs-bug-address)) 91 report-emacs-bug-address))
87 ;; Put these properties on semantically-void text. 92 ;; Put these properties on semantically-void text.