From f89d16284c77edabcb1c98c04d4e0f6531734153 Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Wed, 24 Feb 1999 08:52:46 +0000
Subject: [PATCH] * gnus.el (gnus-revision-number): Increment to 04. *
 dgnushack.el (dgnushack-add-info-suffix-maybe): New
 function. It will be used for adding ".info" suffix to
 @setfilename line in each .texi files.
 (dgnushack-texi-file-regexp): New constant.
 (dgnushack-info-file-regexp): Add ".info" suffix.

---
 lisp/dgnushack.el |   22 +++++++++++++++++++++-
 lisp/gnus.el      |    2 +-
 2 files changed, 22 insertions(+), 2 deletions(-)

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 61cd787..6caab34 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -96,7 +96,11 @@ Modify to suit your needs."))
 (defvar package-path)
 
 (defconst dgnushack-info-file-regexp
-  "^\\(gnus\\|message\\|emacs-mime\\|gnus-ja\\|message-ja\\)\\(-[0-9]+\\)?$")
+  (concat "^\\(gnus\\|message\\|emacs-mime\\|gnus-ja\\|message-ja\\)"
+	  "\\.info\\(-[0-9]+\\)?$"))
+
+(defconst dgnushack-texi-file-regexp
+  "^\\(gnus\\|message\\|emacs-mime\\|gnus-ja\\|message-ja\\)\\.texi$")
 
 (defun dgnushack-make-package ()
   (require 'gnus)
@@ -189,4 +193,20 @@ Modify to suit your needs."))
 
     (message "Done")))
 
+(defun dgnushack-add-info-suffix-maybe ()
+  ;; This function must be invoked from texi directory.
+  (let ((coding-system-for-read 'raw-text)
+	(coding-system-for-write 'raw-text)
+	(files (directory-files "." nil dgnushack-texi-file-regexp))
+	file make-backup-files)
+    (while (setq file (pop files))
+      (find-file file)
+      (when (and (re-search-forward
+		  "^@setfilename[\t ]+\\([^\t\n ]+\\)" nil t)
+		 (not (string-match "\\.info$" (match-string 1))))
+	(copy-file file (concat file "_") nil t)
+	(insert ".info")
+	(save-buffer))
+      (kill-buffer (current-buffer)))))
+
 ;;; dgnushack.el ends here
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 27f163c..e61c166 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -267,7 +267,7 @@ is restarted, and sometimes reloaded."
 (defconst gnus-version-number "6.10.059"
   "Version number for this version of gnus.")
 
-(defconst gnus-revision-number "03"
+(defconst gnus-revision-number "04"
   "Revision number for this version of gnus.")
 
 (defconst gnus-original-version-number "0.77"
-- 
1.7.10.4