(mh-version): Use mh-e-RCS-id rather than mh-e-version

[gnu-emacs] / lisp / gnus-ems.el

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index 34c923974d6b5bd03eb9fbe58df71e017d51602e..04a32e039c0010f3a558252f93ff0d8d7fed9841 100644 (file)
--- a/lisp/gnus-ems.el
+++ b/lisp/gnus-ems.el
@@ -24,6 +24,15 @@
 
 ;;; Commentary:
 
+;;; This file has been censored by the Communications Decency Act.
+;;; That law was passed under the guise of a ban on pornography, but
+;;; it bans far more than that.  This file did not contain pornography,
+;;; but it was censored nonetheless.
+
+;;; For information on US government censorship of the Internet, and
+;;; what you can do to bring back freedom of the press, see the web
+;;; site http://www.vtw.org/
+
 ;;; Code:
 
 (defvar gnus-mouse-2 [mouse-2])
@@ -207,8 +216,7 @@ pounce directly on the real variables themselves.")
        (require 'mode-motion)
        (setq mode-motion-hook 'mode-motion-highlight-line)))
 
-     ((and (not (string-match "28.9" emacs-version)) 
-          (not (string-match "29" emacs-version)))
+     ((< emacs-minor-version 30)
       ;; Remove the `intangible' prop.
       (let ((props (and (boundp 'gnus-hidden-properties) 
                        gnus-hidden-properties)))
@@ -364,7 +372,7 @@ NOTE: This command only works with newsgroups that use real or simulated NNTP."
        (article (gnus-summary-article-number))
        b)
     (or (gnus-summary-goto-subject article)
-       (error (format "No such article: %d" article)))
+       (error "No such article: %d" article))
     (or gnus-newsgroup-headers-hashtb-by-number
        (gnus-make-headers-hashtable-by-number))
     (gnus-summary-position-cursor)
@@ -414,10 +422,10 @@ NOTE: This command only works with newsgroups that use real or simulated NNTP."
                          'gnus-mark gnus-unread-mark 
                          'gnus-level 0
                          'gnus-pseudo (car pslist)))
-         ;; Fucking XEmacs redisplay bug with truncated lines.
+         ;; Fire-trucking XEmacs redisplay bug with truncated lines.
          (goto-char b)
          (sit-for 0)
-         ;; Grumble.. Fucking XEmacs stickiness of text properties.
+         ;; Grumble.. fire-trucking XEmacs stickiness of text properties.
          (remove-text-properties
           (1+ b) (1+ (gnus-point-at-eol))
           '(gnus-number nil gnus-mark nil gnus-level nil))