2000-12-19 19:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-cus.el (gnus-group-parameters): Add posting-style.

2000-12-19 18:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>

	* gnus.el (gnus-version):
	(gnus-version-number): Set to Oort Gnus 0.01.

	* gnus-art.el (gnus-mime-security-button-map):
	(gnus-insert-mime-security-button): Fix for Emacs21.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 93d9738..e27a6bd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2000-12-19 19:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-cus.el (gnus-group-parameters): Add posting-style.
+
+2000-12-19 18:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus.el (gnus-version):
+       (gnus-version-number): Set to Oort Gnus 0.01.
+
+       * gnus-art.el (gnus-mime-security-button-map):
+       (gnus-insert-mime-security-button): Fix for Emacs21.
+
 2000-12-19 17:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-group.el, gnus-sum.el, message.el: Comment out :help in

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 82e02b5..f69288c 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -5186,7 +5186,8 @@ For example:
 
 (defvar gnus-mime-security-button-map
   (let ((map (make-sparse-keymap)))
-    (set-keymap-parent map gnus-article-mode-map)
+    ;; Not for Emacs 21: fixme better.
+    ;;(set-keymap-parent map gnus-article-mode-map)
     (define-key map gnus-mouse-2 'gnus-article-push-button)
     (define-key map "\r" 'gnus-article-press-button)
     map))
@@ -5283,12 +5284,13 @@ For example:
     (gnus-eval-format
      gnus-mime-security-button-line-format 
      gnus-mime-security-button-line-format-alist
-     `(local-map ,gnus-mime-security-button-map
-                keymap ,gnus-mime-security-button-map
-                gnus-callback gnus-mime-security-press-button
-                gnus-line-format ,gnus-mime-security-button-line-format 
-                article-type annotation
-                gnus-data ,handle))
+     `(keymap ,gnus-mime-security-button-map
+             ;; Not for Emacs 21: fixme better.
+             ;;local-map ,gnus-mime-security-button-map
+             gnus-callback gnus-mime-security-press-button
+             gnus-line-format ,gnus-mime-security-button-line-format 
+             article-type annotation
+             gnus-data ,handle))
     (setq e (point))
     (widget-convert-button
      'link b e

diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index c735fe9..87987e5 100644 (file)
--- a/lisp/gnus-cus.el
+++ b/lisp/gnus-cus.el
@@ -270,7 +270,23 @@ default charset will be used instead.")
                           (symbol :tag "Face" 
                                   gnus-emphasis-highlight-words))))
      "highlight regexps.
-See gnus-emphasis-alist."))
+See gnus-emphasis-alist.")
+
+    (posting-style
+     (choice :tag "Posting style"
+            :value nil
+            (repeat (list
+                     (choice :tag "Type"
+                             :value nil
+                             (const signature)
+                             (const signature-file) 
+                             (const organization) 
+                             (const address)
+                             (const name)
+                             (const body))
+                     (string :format "%v"))))
+     "post style.
+See gnus-posting-styles."))
   "Alist of valid group or topic parameters.
 
 Each entry has the form (NAME TYPE DOC), where NAME is the parameter

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 6f59410..706ac4c 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -256,10 +256,10 @@ is restarted, and sometimes reloaded."
   :link '(custom-manual "(gnus)Exiting Gnus")
   :group 'gnus)
 
-(defconst gnus-version-number "5.8.8"
+(defconst gnus-version-number "0.01"
   "Version number for this version of Gnus.")
 
-(defconst gnus-version (format "Gnus v%s" gnus-version-number)
+(defconst gnus-version (format "Oort Gnus v%s" gnus-version-number)
   "Version string for this version of Gnus.")
 
 (defcustom gnus-inhibit-startup-message nil