From 3bc0126994147591693230b16e790f45eb31cded Mon Sep 17 00:00:00 2001
From: psg <>
Date: Tue, 22 Apr 2003 00:32:58 +0000
Subject: Fix package name in MH folder

---
 debian-bug.el | 20 ++++++++++++++------
 1 file 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)
-- 
cgit v1.2.3