diff options
author | psg <> | 2003-04-22 00:32:58 +0000 |
---|---|---|
committer | psg <> | 2003-04-22 00:32:58 +0000 |
commit | 3bc0126994147591693230b16e790f45eb31cded (patch) | |
tree | 00384f2c484d22f2c92bcf990a786db36af8f39f | |
parent | 219681f247b237e129a93cfcc1d1baddd94c674e (diff) |
Fix package name in MH folder
-rw-r--r-- | debian-bug.el | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/debian-bug.el b/debian-bug.el index 008b5eb..fb39c8e 100644 --- a/debian-bug.el +++ b/debian-bug.el @@ -1404,12 +1404,20 @@ If SUBMENU is t, then check for current sexp submenu only." (featurep 'mh-inc)) ;; MH-E (mh-find-path) - (let ((mh-e-folder (concat (if debian-bug-mh-folder - (concat debian-bug-mh-folder "/") - "+debian-bug-") - (if debian-bug-package-name - (concat debian-bug-package-name "-")) - bug-number))) + (let* ((package-name (cond + (debian-bug-package-name + debian-bug-package-name) + ((fboundp 'debian-changelog-suggest-package-name) + (debian-changelog-suggest-package-name)) + (t + (read-string "Package name: ")))) + (mh-e-folder (concat + (if debian-bug-mh-folder + (concat debian-bug-mh-folder "/") + "+debian-bug-") + (if package-name + (format "%s-" package-name)) + bug-number))) (if (and (file-exists-p (mh-expand-file-name mh-e-folder)) (not (y-or-n-p "Bug folder already exists. Download again? "))) (mh-visit-folder mh-e-folder) |