# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1018306496 0
# Node ID a7836a045796867939668ce6b624d40a43de187f
# Parent  7798da9043661467ab674cb7963a88ae1b4ce555
(pop3-md5): Don't hardcode point-min == 1.

diff -r 7798da904366 -r a7836a045796 lisp/gnus/pop3.el
--- a/lisp/gnus/pop3.el	Mon Apr 08 22:53:31 2002 +0000
+++ b/lisp/gnus/pop3.el	Mon Apr 08 22:54:56 2002 +0000
@@ -332,7 +332,7 @@
 			     t (current-buffer) nil)
 	;; The meaningful output is the first 32 characters.
 	;; Don't return the newline that follows them!
-	(buffer-substring 1 33)))))
+	(buffer-substring (point-min) (+ 32 (point-min)))))))
 
 (defun pop3-stat (process)
   "Return the number of messages in the maildrop and the maildrop's size."