From df4e1c2479b41e6fe78c859c9f1303b6cf164af6 Mon Sep 17 00:00:00 2001
From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 8 Jan 2014 10:16:00 +0100
Subject: [PATCH] * debbugs-org.el (debbugs-org-show-reports): Add a minor mode
 header line. (debbugs-org-regenerate-status): Remove (interactive).  Not
 needed anymore. (debbugs-org-mode-map): Remove "C-c # g" key binding.  Not
 needed anymore. (debbugs-org-mode): Autoload it.  Apply
 `debbugs-org-regenerate-status'.

---
 packages/debbugs/debbugs-org.el | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/packages/debbugs/debbugs-org.el b/packages/debbugs/debbugs-org.el
index 7c4d1081c..2d83a8144 100644
--- a/packages/debbugs/debbugs-org.el
+++ b/packages/debbugs/debbugs-org.el
@@ -84,18 +84,12 @@
 ;;   "C-c # C": Send a debbugs control message
 ;;   "C-c # t": Mark the bug locally as tagged
 ;;   "C-c # d": Show bug attributes
-;;   "C-c # g": Regenerate text properties with status
 
 ;; The last entry in a TODO record is the link [[Messages]].  If you
 ;; follow this link, a Gnus ephemeral group is opened presenting all
 ;; related messages for this bug.  Here you could also send debbugs
 ;; control messages by keystroke "C".
 
-;; Note that following the [[Messages]] link will only work if you
-;; generated the list of bugs from the current session, or if you hit
-;; C-c # g which will regenerate the text properties containing the
-;; bug status (i.e. the bug number).
-
 ;; Finally, if you simply want to list some bugs with known bug
 ;; numbers, call the command
 ;;
@@ -281,6 +275,9 @@ returned."
   (let ((inhibit-read-only t)
 	(debbugs-port "gnu.org"))
 
+    (when (= (point) (point-min))
+      (insert "# -*- eval: (debbugs-org-mode 1); -*-\n\n"))
+
     (dolist (status
 	     (sort
 	      (apply 'debbugs-get-status bug-numbers)
@@ -370,7 +367,6 @@ returned."
 This property is used when following the [Messages] link, so you
 need to regenerate it when opening an .org file after you killed
 the corresponding buffer (e.g. by closing Emacs.)"
-  (interactive)
   (save-excursion
     (goto-char (point-min))
     (while (re-search-forward ":DEBBUGS_ID:[ \t]*\\([0-9]+\\)" nil t)
@@ -406,13 +402,13 @@ the corresponding buffer (e.g. by closing Emacs.)"
     (define-key map (kbd "C-c # t") 'debbugs-gnu-toggle-tag)
     (define-key map (kbd "C-c # C") 'debbugs-gnu-send-control-message)
     (define-key map (kbd "C-c # d") 'debbugs-gnu-display-status)
-    (define-key map (kbd "C-c # g") 'debbugs-org-regenerate-status)
     map)
   "Keymap for the `debbugs-org-mode' minor mode.")
 
 ;; Make byte-compiler quiet.
 (defvar gnus-posting-styles)
 
+;;;###autoload
 (define-minor-mode debbugs-org-mode
   "Minor mode for providing a debbugs interface in org-mode buffers.
 
@@ -430,7 +426,8 @@ the corresponding buffer (e.g. by closing Emacs.)"
 		      ("[0-9]+@debbugs.*" "quiet@debbugs.gnu.org")))
 	       ;; `gnus-posting-styles' is eval'ed after
 	       ;; `message-simplify-subject'.  So we cannot use m-s-s.
-	       (setq subject ,debbugs-gnu-subject))))))))
+	       (setq subject ,debbugs-gnu-subject)))))))
+  (debbugs-org-regenerate-status))
 
 ;;;###autoload
 (defun debbugs-org-bugs (&rest bugs)
-- 
2.39.2