* gnus.el (gnus-group-short-name, gnus-group-prefixed-p): new functions

[gnus] / lisp / message.el

diff --git a/lisp/message.el b/lisp/message.el
index 71dfef1..29ea74e 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4385,9 +4385,9 @@ If NOW, use that time instead."
                               (lsh (% message-unique-id-char 25) 16)) 4)
      (message-number-base36 (+ (nth 1 tm)
                               (lsh (/ message-unique-id-char 25) 16)) 4)
-     ;; Append the newsreader name, because while the generated
-     ;; ID is unique to this newsreader, other newsreaders might
-     ;; otherwise generate the same ID via another algorithm.
+     ;; Append a given name, because while the generated ID is unique
+     ;; to this newsreader, other newsreaders might otherwise generate
+     ;; the same ID via another algorithm.
      ".fsf")))
 
 (defun message-number-base36 (num len)
@@ -6522,9 +6522,9 @@ regexp varstr."
                (message-next-header)
              (let ((begin (point)))
                (message-next-header)
-               (add-text-properties begin (point)
-                                    '(intangible t invisible t
-                                                 message-hidden t))))))))))
+               (add-text-properties
+                begin (point)
+                '(invisible t message-hidden t))))))))))
 
 (defun message-hide-header-p (regexps)
   (let ((result nil)