From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/18324
Path: main.gmane.org!not-for-mail
From: Karl Kleinpaste <karl@jprc.com>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: messkeyw.el [patch]
Date: 30 Oct 1998 06:57:08 -500
Sender: owner-ding@hpc.uh.edu
Message-ID: <vxk7lxijm97.fsf@pocari-sweat.jprc.com>
References: <vxkhfwocwyr.fsf@pocari-sweat.jprc.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035156866 5526 80.91.224.250 (20 Oct 2002 23:34:26 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 23:34:26 +0000 (UTC)
Keywords: emacs,xemacs,compatibility,buffer-substring
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from fisher.math.uh.edu (fisher.math.uh.edu [129.7.128.35])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id HAA02916
	for <jason@mailhost.sclp.com>; Fri, 30 Oct 1998 07:00:31 -0500 (EST)
Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5])
	by fisher.math.uh.edu (8.9.1/8.9.1) with ESMTP id FAB15648;
	Fri, 30 Oct 1998 05:58:05 -0600 (CST)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 30 Oct 1998 05:57:49 -0600 (CST)
Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [209.195.19.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id FAA12130 for <ding@hpc.uh.edu>; Fri, 30 Oct 1998 05:57:40 -0600 (CST)
Original-Received: from pocari-sweat.jprc.com (POCARI-SWEAT.JPRC.COM [207.86.147.217])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id GAA02886
	for <ding@gnus.org>; Fri, 30 Oct 1998 06:57:37 -0500 (EST)
Original-Received: (from karl@localhost)
	by pocari-sweat.jprc.com (8.8.7/8.8.7) id GAA04143;
	Fri, 30 Oct 1998 06:57:08 -0500
Original-To: ding@gnus.org
X-Face: "5(T0tZd{6}pd~YzBG8O/*EW,.]6]@`m^e;fv65W^Y&=d"M\1H}>T~4_.kcDD.O~y3k)a6h
 R;Nmi>9|>Nm${2IpM0^RcUEa\jcq?KOP)C&~x51l~zCHTulL^_T|u0I^kB'z@]{`2YjQu
In-Reply-To: Karl Kleinpaste's message of "28 Oct 1998 14:23:08 -500"
Original-Lines: 26
User-Agent: Gnus/5.07004 (Pterodactyl Gnus v0.40) XEmacs/20.4 (Emerald)
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:18324
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:18324

Thanx to Jean-Yves Perrier, who found an Emacs /vs/ XEmacs
compatibility bug.  Apparently, buffer-substring's START and END args
aren't optional in Emacs.

--karl

--- messkeyw.el.~1~	Fri Oct 30 06:17:27 1998
+++ messkeyw.el	Fri Oct 30 06:18:31 1998
@@ -170,7 +170,7 @@
       (unless (message-fetch-field "keywords")
 	; get full article text, including header & signature.
 	(setq quickbuf (generate-new-buffer " *BodyOnly*"))
-	(insert-string (buffer-substring) quickbuf)
+	(insert-string (buffer-substring (point-min) (point-max)) quickbuf)
 	(set-buffer quickbuf)
 	(narrow-to-region (message-goto-body)
 			  (progn (message-goto-signature)
@@ -187,7 +187,7 @@
 			   (if (> count message-keyword-short-article-limit)
 			       message-keyword-long-count
 			     message-keyword-short-count)
-			   (buffer-substring)))
+			   (buffer-substring (point-min) (point-max))))
 			  ","))
 	(kill-this-buffer)))
     ; back in *message* buffer now.