Re: buffer-local add-log-mailing-address (was: change-log-mode)

[Kevin Rodgers <ihs_4664@yahoo.com>]

Jochen K?pper wrote:
 > On Tue, 12 Oct 2004 14:07:13 +0200 Johan Bockg?rd wrote:
 > Johan> `add-log-mailing-address'
 >
 > Thanks for the hint. However, that variable shows the same behavior.
 >
 > Now I found out that the same issue was brought up before:
 > ,----
 > | http://lists.gnu.org/archive/html/bug-gnu-emacs/2003-04/msg00072.html
 > `----
 > I could not find a solution using google, and apparently add-log from
 > GNU Emacs 21.3.1 still shows the same problem. Any takers?

Is it as easy as setting add-log-mailing-address (and -full-name, while
we're at it) after visiting the ChangeLog file (instead of before)?

*** emacs-21.3/lisp/add-log.el~	Tue Oct 12 15:49:37 2004
--- emacs-21.3/lisp/add-log.el	Tue Oct 12 15:47:48 2004
***************
*** 416,434 ****
   non-nil, otherwise in local time."
     (interactive (list current-prefix-arg
   		     (prompt-for-change-log-name)))
-   (or add-log-full-name
-       (setq add-log-full-name (user-full-name)))
-   (or add-log-mailing-address
-       (setq add-log-mailing-address user-mail-address))
-   (if whoami
-       (progn
- 	(setq add-log-full-name (read-input "Full name: " add-log-full-name))
- 	 ;; Note that some sites have room and phone number fields in
- 	 ;; full name which look silly when inserted.  Rather than do
- 	 ;; anything about that here, let user give prefix argument so that
- 	 ;; s/he can edit the full name field in prompter if s/he wants.
- 	(setq add-log-mailing-address
- 	      (read-input "Mailing address: " add-log-mailing-address))))

     (let* ((defun (add-log-current-defun))
   	 (version (and change-log-version-info-enabled
--- 416,421 ----
***************
*** 449,454 ****
--- 436,454 ----
         (find-file file-name))
       (or (eq major-mode 'change-log-mode)
   	(change-log-mode))
+   (or add-log-full-name
+       (setq add-log-full-name (user-full-name)))
+   (or add-log-mailing-address
+       (setq add-log-mailing-address user-mail-address))
+   (if whoami
+       (progn
+ 	(setq add-log-full-name (read-input "Full name: " add-log-full-name))
+ 	 ;; Note that some sites have room and phone number fields in
+ 	 ;; full name which look silly when inserted.  Rather than do
+ 	 ;; anything about that here, let user give prefix argument so that
+ 	 ;; s/he can edit the full name field in prompter if s/he wants.
+ 	(setq add-log-mailing-address
+ 	      (read-input "Mailing address: " add-log-mailing-address))))
       (undo-boundary)
       (goto-char (point-min))
       (let ((new-entry (concat (funcall add-log-time-format)