From: Reiner Steib <Reiner.Steib@gmx.de>
Date: Sun, 28 Oct 2007 15:41:53 +0000 (+0000)
Subject: (gnus-button-mid-or-mail-heuristic-alist): Add "alpine".
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=8669f5b0115a0e9afb85738e08e1e7a6eb323f3b;p=gnus

(gnus-button-mid-or-mail-heuristic-alist): Add "alpine".
(gnus-treat-emphasize, gnus-treat-body-boundary): Don't test
window-system.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 385d09cee..4c1193502 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,17 @@
+2007-10-28  Reiner Steib  <Reiner.Steib@gmx.de>
+
+	* gnus-art.el (gnus-button-mid-or-mail-heuristic-alist): Add "alpine".
+	(gnus-treat-emphasize, gnus-treat-body-boundary): Don't test
+	window-system.
+
 2007-10-27  Reiner Steib  <Reiner.Steib@gmx.de>
 
+	* message.el (message-bogus-address-regexp): New variable.
+	(message-bogus-recipient-p): New function.
+	(message-check-recipients): New command.
+	(message-syntax-checks): Add `bogus-recipient'.
+	(message-fix-before-sending): Add `bogus-recipient'.
+
 	* gnus-msg.el (gnus-message-setup-hook): Add
 	`message-remove-blank-cited-lines' to options.
 
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 9db4408e9..a2d34e651 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1116,10 +1116,7 @@ predicate.  See Info node `(gnus)Customizing Articles'."
   :type gnus-article-treat-head-custom)
 (put 'gnus-treat-buttonize-head 'highlight t)
 
-(defcustom gnus-treat-emphasize
-  (and (or window-system
-	   (featurep 'xemacs))
-       50000)
+(defcustom gnus-treat-emphasize 50000
   "Emphasize text.
 Valid values are nil, t, `head', `first', `last', an integer or a
 predicate.  See Info node `(gnus)Customizing Articles'."
@@ -1518,11 +1515,12 @@ node `(gnus)Picons' for details."
 (put 'gnus-treat-newsgroups-picon 'highlight t)
 
 (defcustom gnus-treat-body-boundary
-  (if (and (eq window-system 'x)
-	   (or gnus-treat-newsgroups-picon
-	       gnus-treat-mail-picon
-	       gnus-treat-from-picon))
-      'head nil)
+  (if (or gnus-treat-newsgroups-picon
+	  gnus-treat-mail-picon
+	  gnus-treat-from-picon)
+      ;; If there's much decoration, the user might prefer a boundery.
+      'head
+    nil)
   "Draw a boundary at the end of the headers.
 Valid values are nil and `head'.
 See Info node `(gnus)Customizing Articles' for details."
@@ -6779,6 +6777,7 @@ must return `mid', `mail', `invalid' or `ask'."
     (-20.0 . "\\.fsf@")	;; Gnus
     (-20.0 . "^slrn")
     (-20.0 . "^Pine")
+    (-20.0 . "^alpine\\.")
     (-20.0 . "_-_") ;; Subject change in thread
     ;;
     (-20.0 . "\\.ln@") ;; leafnode