Changes committed gnus/lisp (ChangeLog message.el)

Modified: ChangeLog message.el

* message.el (message-check-news-body-syntax): Fix signature check.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1812 gnus/lisp/ChangeLog:7.1813
--- ChangeLog:7.1812	Mon Mar 24 19:10:58 2008
+++ ChangeLog	Mon Mar 24 19:16:27 2008
@@ -1,5 +1,7 @@
 2008-03-24  Reiner Steib  <[email protected]>
 
+	* message.el (message-check-news-body-syntax): Fix signature check.
+
         * gnus-group.el (gnus-read-ephemeral-bug-group)
         (gnus-read-ephemeral-debian-bug-group)
         (gnus-read-ephemeral-emacs-bug-group): Use the correct variable.
Index: message.el
diff -u gnus/lisp/message.el:7.251 gnus/lisp/message.el:7.252
--- message.el:7.251	Mon Mar 24 19:09:11 2008
+++ message.el	Mon Mar 24 19:16:27 2008
@@ -5059,12 +5059,16 @@
    ;; Check the length of the signature.
    (message-check 'signature
      (goto-char (point-max))
-     (if (> (count-lines (point) (point-max)) 5)
-	 (y-or-n-p
-	  (format
-	   "Your .sig is %d lines; it should be max 4.  Really post? "
-	   (1- (count-lines (point) (point-max)))))
-       t))
+     (if (not (re-search-backward message-signature-separator nil t))
+	 t
+       (if (>= (count-lines (1+ (point-at-eol)) (point-max)) 5)
+	   (if (message-gnksa-enable-p 'signature)
+	       (y-or-n-p
+		(format "Signature is excessively long (%d lines).  Really post? "
+			(count-lines (1+ (point-at-eol)) (point-max))))
+	     (message "Denied posting -- Excessive signature.")
+	     nil)
+	 t)))
    ;; Ensure that text follows last quoted portion.
    (message-check 'quoting-style
      (goto-char (point-max))