From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Kevin Rodgers Newsgroups: gmane.emacs.bugs Subject: Re: buffer-local add-log-mailing-address (was: change-log-mode) Date: Tue, 12 Oct 2004 15:56:13 -0600 Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Message-ID: <416C52FD.5030304@yahoo.com> References: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii; format=flowed Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1097618195 20596 80.91.229.6 (12 Oct 2004 21:56:35 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 12 Oct 2004 21:56:35 +0000 (UTC) Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Oct 12 23:56:29 2004 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1CHUdB-0000IQ-00 for ; Tue, 12 Oct 2004 23:56:29 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1CHUkB-0008FS-Tm for geb-bug-gnu-emacs@m.gmane.org; Tue, 12 Oct 2004 18:03:43 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.33) id 1CHUk8-0008E3-Gt for bug-gnu-emacs@gnu.org; Tue, 12 Oct 2004 18:03:40 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.33) id 1CHUk8-0008DU-0a for bug-gnu-emacs@gnu.org; Tue, 12 Oct 2004 18:03:40 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1CHUk7-0008DE-Pz for bug-gnu-emacs@gnu.org; Tue, 12 Oct 2004 18:03:39 -0400 Original-Received: from [80.91.229.2] (helo=main.gmane.org) by monty-python.gnu.org with esmtp (Exim 4.34) id 1CHUcy-0001P0-OQ for bug-gnu-emacs@gnu.org; Tue, 12 Oct 2004 17:56:17 -0400 Original-Received: from list by main.gmane.org with local (Exim 3.35 #1 (Debian)) id 1CHUcw-0001am-00 for ; Tue, 12 Oct 2004 23:56:14 +0200 Original-Received: from 170.207.1.200 ([170.207.1.200]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 12 Oct 2004 23:56:14 +0200 Original-Received: from ihs_4664 by 170.207.1.200 with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 12 Oct 2004 23:56:14 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-To: bug-gnu-emacs@gnu.org Original-Lines: 63 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: 170.207.1.200 User-Agent: Mozilla/5.0 (X11; U; SunOS i86pc; en-US; rv:0.9.4.1) Gecko/20020406 Netscape6/6.2.2 X-Accept-Language: en-us X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.bugs:9290 X-Report-Spam: http://spam.gmane.org/gmane.emacs.bugs:9290 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)