[Top][All Lists]

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

[debbugs-tracker] bug#22510: closed (25.1.50; error in lm-header-multili

From: GNU bug Tracking System
Subject: [debbugs-tracker] bug#22510: closed (25.1.50; error in lm-header-multiline)
Date: Wed, 11 May 2016 22:35:02 +0000

Your message dated Thu, 12 May 2016 01:34:44 +0300
with message-id <address@hidden>
and subject line Re: bug#22616: 25.0.50; Change to lm-header breaks 
has caused the debbugs.gnu.org bug report #22616,
regarding 25.1.50; error in lm-header-multiline
to be marked as done.

(If you believe you have received this mail in error, please contact

22616: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=22616
GNU Bug Tracking System
Contact address@hidden with problems
--- Begin Message --- Subject: 25.1.50; error in lm-header-multiline Date: Sun, 31 Jan 2016 17:56:12 -0500
I think there is a bug in lm-header-multiline in lisp-mnt.el.

It does not actually read multiline headers because in line 285, the
call to lm-header does not move point, and the subsequent code does not
read the next lines.

I do not see a good fix. One could modify the lm-header code or add the
code to lm-header-multiline. I am not sure of the implications of either
of these.

Here is my solution that returns single and multiline headers. I have
signed FSF papers, so you are welcome to this code if you like it.


(defun lm-header (header)
  "Return the contents of the header named HEADER.
If the HEADER is multiline, a list of strings is returned."
    (goto-char (point-min))
    (let ((case-fold-search t)
      (when (and (re-search-forward
                  (lm-get-header-re header)
                  (lm-code-mark) t)
                 ;;   RCS ident likes format "$identifier: data$"
                  (if (save-excursion
                        (skip-chars-backward "^$" (match-beginning 0))
                        (= (point) (match-beginning 0)))
                      "[^\n]+" "[^$\n]+")))
        (setq res (list (match-string-no-properties 0)))
        (forward-line 1)
        (while (looking-at "^;+\\(\t\\|[\t\s]\\{2,\\}\\)\\(.+\\)")
          (push (match-string-no-properties 2) res)
          (forward-line 1))
        (setq res (nreverse res))
        (if (= 1 (length res))
            (car res)

Professor John Kitchin
Doherty Hall A207F
Department of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 15213

--- End Message ---
--- Begin Message --- Subject: Re: bug#22616: 25.0.50; Change to lm-header breaks lm-header-multiline Date: Thu, 12 May 2016 01:34:44 +0300 User-agent: Mozilla/5.0 (X11; Linux x86_64; rv:45.0) Gecko/20100101 Thunderbird/45.1
Version: 25.1

On 05/11/2016 03:00 AM, Dmitry Gutov wrote:

Moving save-excursion there does help.

Applied, and closing.

Thanks all.

--- End Message ---

reply via email to

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