# HG changeset patch
# User Francesco Potort��� <pot@gnu.org>
# Date 1042814895 0
# Node ID bb7bf9ff7c9711e7be235c190a0947306137e1af
# Parent  3daa4e7f0ccaaccf4ffdd288c2c24dc164dbe87c
(add-release-logs): Expand the directory name before calling find(1).
(add-release-logs): Use the same methods as add-log.el for writing
the date and the user's name and address

diff -r 3daa4e7f0cca -r bb7bf9ff7c97 admin/admin.el
--- a/admin/admin.el	Fri Jan 17 14:47:53 2003 +0000
+++ b/admin/admin.el	Fri Jan 17 14:48:15 2003 +0000
@@ -48,12 +48,16 @@
   "Add \"Version VERSION released.\" change log entries in ROOT.
 Root must be the root of an Emacs source tree."
   (interactive "DEmacs root directory: \nNVersion number: ")
+  (setq root (expand-file-name root))
   (unless (file-exists-p (expand-file-name "src/emacs.c" root))
     (error "%s doesn't seem to be the root of an Emacs source tree" root))
   (let* ((logs (process-lines "find" root "-name" "ChangeLog"))
+	 (require 'add-log)
 	 (entry (format "%s  %s  <%s>\n\n\t* Version %s released.\n\n"
-			(format-time-string "%Y-%m-%d")
-			(user-full-name) user-mail-address version)))
+			(funcall add-log-time-format)
+			(or add-log-full-name (user-full-name))
+			(or add-log-mailing-address user-mail-address)
+			version)))
     (dolist (log logs)
       (unless (string-match "/gnus/" log)
 	(find-file log)
@@ -84,5 +88,5 @@
   (set-version-in-file root "man/emacs.texi" version
 		       (rx (and "EMACSVER" (1+ space)
 				(submatch (1+ (in "0-9.")))))))
-			     
+
 ;; admin.el ends here.