emacs-bug-tracker
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[debbugs-tracker] bug#13330: closed (24.2; rmail-set-header doesn't work


From: GNU bug Tracking System
Subject: [debbugs-tracker] bug#13330: closed (24.2; rmail-set-header doesn't work for multi-line headers)
Date: Thu, 03 Jan 2013 19:44:02 +0000

Your message dated Thu, 03 Jan 2013 14:42:53 -0500
with message-id <address@hidden>
and subject line Re: bug#13330: 24.2; rmail-set-header doesn't work for 
multi-line headers
has caused the debbugs.gnu.org bug report #13330,
regarding 24.2; rmail-set-header doesn't work for multi-line headers
to be marked as done.

(If you believe you have received this mail in error, please contact
address@hidden)


-- 
13330: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=13330
GNU Bug Tracking System
Contact address@hidden with problems
--- Begin Message --- Subject: 24.2; rmail-set-header doesn't work for multi-line headers Date: Tue, 01 Jan 2013 14:40:52 -0800
This should be obvious from inspection (rmail.el:2166):

  (defun rmail-set-header-1 (name value)
    "Subroutine of `rmail-set-header'.
  Narrow to header, set header NAME to VALUE, replacing existing if present.
  VALUE nil means to remove NAME altogether."
    (if (search-forward "\n\n" nil t)
        (progn
        (forward-char -1)
        (narrow-to-region (point-min) (point))
        (goto-char (point-min))
        (if (re-search-forward (concat "^" (regexp-quote name) ":") nil 'move)
              (if value
                  (progn
                    (delete-region (point) (line-end-position))
                    (insert " " value))
                (delete-region (line-beginning-position)
                               (line-beginning-position 2)))
            (if value (insert name ": " value "\n"))))
      (rmail-error-bad-format)))
  
  (defun rmail-set-header (name &optional msgnum value)
    "Set message header NAME to VALUE in message number MSGNUM.
  If MSGNUM is nil, use the current message.  NAME and VALUE are strings.
  VALUE may also be nil, meaning to remove the header."
    (rmail-apply-in-message msgnum 'rmail-set-header-1 name value)
    (with-current-buffer rmail-buffer
      ;; Ensure header changes get saved.
      ;; (Note replacing a header with an identical copy modifies.)
      (set-buffer-modified-p t)
      ;; However: don't save in mbox format over a Babyl file
      ;; merely because of this.
      (rmail-dont-modify-format)))

but if not, evaluate (esc-:) "(rmail-set-header "subject" nil)" on a
Rmail message with a multiline subject like:

|X-Spam-Status: No, score=-4.7 required=5.0 tests=BAYES_00,RCVD_IN_DNSWL_MED,
|       RP_MATCHES_RCVD autolearn=unavailable version=3.3.1
|From: Mark Lillibridge <address@hidden>
|To: <address@hidden>
|Subject: this is a long subject
|  with several lines
|  indeed
|Date: Sat, 22 Oct 2011 12:05:57 -0700
|Reply-To: <address@hidden>
|Content-type: text/plain; charset=us-ascii
|
|
|empty body

The result (after hitting t twice to re-decode) is:

|X-Spam-Status: No, score=-4.7 required=5.0 tests=BAYES_00,RCVD_IN_DNSWL_MED,
|       RP_MATCHES_RCVD autolearn=unavailable version=3.3.1
|From: Mark Lillibridge <address@hidden>
|To: <address@hidden>
|  with several lines
|  indeed
|Date: Sat, 22 Oct 2011 12:05:57 -0700
|Reply-To: <address@hidden>
|Content-type: text/plain; charset=us-ascii
|
|
|empty body

Notice that only the first line of the Subject has been deleted.  

    Should there be a warning that this function does not RFC2047 encode
value so the caller is responsible for doing any such encoding if
needed?

- Mark



--- End Message ---
--- Begin Message --- Subject: Re: bug#13330: 24.2; rmail-set-header doesn't work for multi-line headers Date: Thu, 03 Jan 2013 14:42:53 -0500 User-agent: Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/)
Version: 24.4

Fixed in trunk.


--- End Message ---

reply via email to

[Prev in Thread] Current Thread [Next in Thread]