mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-679

Browse source 
Merge from gnus--rel--5.10

Patches applied:

 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-69
   Merge from emacs--cvs-trunk--0

 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-70
   Update from CVS

2004-11-07  Katsumi Yamaoka  <yamaoka@jpl.org>

   * lisp/gnus/gnus-msg.el (gnus-configure-posting-styles): Don't cause the
   "Args out of range" error.  Reported by Arnaud Giersch
   <arnaud.giersch@free.fr>.
This commit is contained in:
Miles Bader 2004-11-09 04:38:27 +00:00
parent 091cccb68d
commit 5f49be3fae
2 changed files with 13 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View file

@ -1,3 +1,9 @@
2004-11-07 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-msg.el (gnus-configure-posting-styles): Don't cause the
"Args out of range" error. Reported by Arnaud Giersch
<arnaud.giersch@free.fr>.
2004-11-04 Richard M. Stallman <rms@gnu.org>
* spam.el (spam group): Add :version.

12
lisp/gnus/gnus-msg.el
View file

@ -1871,11 +1871,13 @@ this is a reply."
(when (and filep v)
(setq v (with-temp-buffer
(insert-file-contents v)
(goto-char (point-max))
(skip-chars-backward "\n")
(delete-region (+ (point) (if (bolp) 0 1))
(point-max))
(buffer-string))))
(buffer-substring
(point-min)
(progn
(goto-char (point-max))
(if (zerop (skip-chars-backward "\n"))
(point)
(1+ (point))))))))
(setq results (delq (assoc element results) results))
(push (cons element v) results))))
;; Now we have all the styles, so we insert them.