(add-change-log-entry): Get add-log-full-name and add-log-mailing-address from

the right buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cd8efbd3ad8651e2568db01d29960bd4276d28b1..048d5a324b02011cef7c0e025f8b74b783c9c1e3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-12  Morten Welinder  <terra@gnu.org>
+
+       * add-log.el (add-change-log-entry): Get add-log-full-name and
+       add-log-mailing-address from the right buffer.
+
 2003-04-07  Francesco Potort\e,Al\e(B  <pot@gnu.org>
 
        * xt-mouse.el (xterm-mouse-event-read): New function.

diff --git a/lisp/add-log.el b/lisp/add-log.el
index 61a29beda84f014ef2aff39228a9a7fb727862ce..e30938cfa0e5e88c0df89aa07ff81d72a68aa687 100644 (file)
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -441,6 +441,9 @@ non-nil, otherwise in local time."
                     (or file-name (find-change-log file-name buffer-file))))
         ;; Set ENTRY to the file name to use in the new entry.
         (entry (add-log-file-name buffer-file file-name))
+        ;; Get copies from this buffer
+        (full-name add-log-full-name)
+        (mailing-address add-log-mailing-address)
         bound)
 
     (if (or (and other-window (not (equal file-name buffer-file-name)))
@@ -452,8 +455,8 @@ non-nil, otherwise in local time."
     (undo-boundary)
     (goto-char (point-min))
     (let ((new-entry (concat (funcall add-log-time-format)
-                            "  " add-log-full-name
-                            "  <" add-log-mailing-address ">")))
+                            "  " full-name
+                            "  <" mailing-address ">")))
       (if (looking-at (regexp-quote new-entry))
          (forward-line 1)
        (insert new-entry "\n\n")))