Importing Pterodactyl Gnus v0.83.

[elisp/gnus.git-] / lisp / gnus-msg.el

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 34f37c9..910e874 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -110,10 +110,9 @@ the second with the current group name.")
 
 (defcustom gnus-group-posting-charset-alist
   '(("^no\\." iso-8859-1)
-    (".*" iso-8859-1)
-    (message-this-is-news iso-8859-1)
     (message-this-is-mail nil)
-    )
+    (".*" iso-8859-1)
+    (message-this-is-news iso-8859-1))
   "Alist of regexps (to match group names) and default charsets to be unencoded when posting."
   :type '(repeat (list (regexp :tag "Group")
                       (symbol :tag "Charset")))
@@ -584,7 +583,7 @@ If SILENT, don't prompt the user."
    " (" gnus-version ")"
    " "
    (cond
-    ((string-match "^\\([0-9]+\\.[0-9]+\\)\\.[.0-9]+$" emacs-version)
+    ((string-match "^\\(\\([.0-9]+\\)*\\)\\.[0-9]+$" emacs-version)
      (concat "Emacs/" (match-string 1 emacs-version)))
     ((string-match "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)[^(]*\\(\\((beta.*)\\|'\\)\\)?"
                   emacs-version)
@@ -853,7 +852,7 @@ If YANK is non-nil, include the original article."
     (save-excursion
       (set-buffer (gnus-get-buffer-create " *gnus environment info*"))
       (gnus-debug))
-    (insert "<#part type=application/emacs-lisp buffer=\" *gnus environment info*\" disposition=inline><#/part>")
+    (insert "<#part type=application/x-emacs-lisp buffer=\" *gnus environment info*\" disposition=inline description=\"User settings\"><#/part>")
     (goto-char (point-min))
     (search-forward "Subject: " nil t)
     (message "")))