[gnus git] branch master updated: m0-5-205-g3ed7fb6 =2= Remove X-Message-SMTP-Method from news, too. ; Add new command gnus-browse-delete-group

       via  3ed7fb6d7698723e4284ce1cdd05f837b4f95a62 (commit)
       via  f56434220241047ae0d5cafc235b1e6250ef15bf (commit)
      from  cbe6e76bf806b22879767af60fc37d26a8ae2af2 (commit)


- Log -----------------------------------------------------------------
commit 3ed7fb6d7698723e4284ce1cdd05f837b4f95a62
Author: Lars Ingebrigtsen <[email protected]>
Date:   Mon Dec 24 21:13:47 2012 +0100

    Remove X-Message-SMTP-Method from news, too.
    
    * message.el (message-ignored-news-headers): Always remove
    X-Message-SMTP-Method to avoid information leakage if the user
    mistakenly inserts the header into news messages.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cf50eb5..2eb6023 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2012-12-24  Lars Ingebrigtsen  <[email protected]>
 
+	* message.el (message-ignored-news-headers): Always remove
+	X-Message-SMTP-Method to avoid information leakage if the user
+	mistakenly inserts the header into news messages.
+
 	* gnus-srvr.el (gnus-browse-delete-group): New command and keystroke.
 
 	* gnus-sum.el (gnus-summary-hide-thread): If point were further to the
diff --git a/lisp/message.el b/lisp/message.el
index 9cd0a4d..c815485 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -268,7 +268,7 @@ This is a list of regexps and regexp matches."
   :type 'sexp)
 
 (defcustom message-ignored-news-headers
-  "^NNTP-Posting-Host:\\|^Xref:\\|^[BGF]cc:\\|^Resent-Fcc:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:"
+  "^NNTP-Posting-Host:\\|^Xref:\\|^[BGF]cc:\\|^Resent-Fcc:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:\\|^X-Message-SMTP-Method:"
   "*Regexp of headers to be removed unconditionally before posting."
   :group 'message-news
   :group 'message-headers

commit f56434220241047ae0d5cafc235b1e6250ef15bf
Author: Lars Ingebrigtsen <[email protected]>
Date:   Mon Dec 24 18:03:42 2012 +0100

    Add new command gnus-browse-delete-group

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 89b6c67..cf50eb5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2012-12-24  Lars Ingebrigtsen  <[email protected]>
 
+	* gnus-srvr.el (gnus-browse-delete-group): New command and keystroke.
+
 	* gnus-sum.el (gnus-summary-hide-thread): If point were further to the
 	right than four characters, this command would move point to
 	`point-max'.  Don't do that.
diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index f58cb80..762ea60 100644
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -713,6 +713,7 @@ claim them."
     "q" gnus-browse-exit
     "Q" gnus-browse-exit
     "d" gnus-browse-describe-group
+    [delete] gnus-browse-delete-group
     "\C-c\C-c" gnus-browse-exit
     "?" gnus-browse-describe-briefly
 
@@ -964,6 +965,16 @@ how new groups will be entered into the group buffer."
   (interactive (list (gnus-browse-group-name)))
   (gnus-group-describe-group nil group))
 
+(defun gnus-browse-delete-group (group)
+  "Delete the current group.  Only meaningful with editable groups.
+If FORCE (the prefix) is non-nil, all the articles in the group will
+be deleted.  This is \"deleted\" as in \"removed forever from the face
+of the Earth\".  There is no undo.  The user will be prompted before
+doing the deletion."
+  (interactive (list (gnus-browse-group-name)
+		     current-prefix-arg))
+  (gnus-group-delete-group group force))
+
 (defun gnus-browse-unsubscribe-group ()
   "Toggle subscription of the current group in the browse buffer."
   (let ((sub nil)
diff --git a/texi/ChangeLog b/texi/ChangeLog
index 45dccc1..cd3182b 100644
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,8 @@
+2012-12-24  Lars Ingebrigtsen  <[email protected]>
+
+	* gnus.texi (Browse Foreign Server): Document
+	`gnus-browse-delete-group'.
+
 2012-12-21  Glenn Morris  <[email protected]>
 
 	* auth.texi, epa.texi, gnus-coding.texi, sasl.texi:
diff --git a/texi/gnus.texi b/texi/gnus.texi
index d954a27..8fb5904 100644
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -3645,6 +3645,15 @@ Describe the current group (@code{gnus-browse-describe-group}).
 @findex gnus-browse-describe-briefly
 Describe browse mode briefly (well, there's not much to describe, is
 there) (@code{gnus-browse-describe-briefly}).
+
+@item DEL
+@kindex DEL (Browse)
+@findex gnus-browse-delete-group
+This function will delete the current group
+(@code{gnus-browse-delete-group}).  If given a prefix, this function
+will actually delete all the articles in the group, and forcibly
+remove the group itself from the face of the Earth.  Use a prefix only
+if you are absolutely sure of what you are doing.
 @end table
 
 

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog    |    6 ++++++
 lisp/gnus-srvr.el |   11 +++++++++++
 lisp/message.el   |    2 +-
 texi/ChangeLog    |    5 +++++
 texi/gnus.texi    |    9 +++++++++
 5 files changed, 32 insertions(+), 1 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project