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

[Kevin Rodgers]

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)