Commit 61bbede6 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

Merge changes made in Gnus master

gnus-srvr.el (gnus-browse-delete-group): Fix syntax error.
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
  right than four characters, this command would move point to
  `point-max'.  Don't do that.
gnus-group.el (gnus-group-read-ephemeral-group): Set the active data
  to nil to allow re-selecting groups that gain articles.
  (gnus-bug-group-download-format-alist): Update the URL.
gnus.texi (Browse Foreign Server): Document `gnus-browse-delete-group'.
parent dc646358
2012-12-24 Lars Ingebrigtsen <larsi@gnus.org>
* gnus.texi (Browse Foreign Server): Document
`gnus-browse-delete-group'.
2012-12-22 Glenn Morris <rgm@gnu.org> 2012-12-22 Glenn Morris <rgm@gnu.org>
* ada-mode.texi, ebrowse.texi, ediff.texi, ert.texi, eshell.texi: * ada-mode.texi, ebrowse.texi, ediff.texi, ert.texi, eshell.texi:
......
...@@ -3645,6 +3645,15 @@ Describe the current group (@code{gnus-browse-describe-group}). ...@@ -3645,6 +3645,15 @@ Describe the current group (@code{gnus-browse-describe-group}).
@findex gnus-browse-describe-briefly @findex gnus-browse-describe-briefly
Describe browse mode briefly (well, there's not much to describe, is Describe browse mode briefly (well, there's not much to describe, is
there) (@code{gnus-browse-describe-briefly}). 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 @end table
   
   
2012-12-24 Lars Ingebrigtsen <larsi@gnus.org>
* gnus-srvr.el (gnus-browse-delete-group): Fix syntax error.
* 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
right than four characters, this command would move point to
`point-max'. Don't do that.
* gnus-group.el (gnus-group-read-ephemeral-group): Set the active data
to nil to allow re-selecting groups that gain articles.
(gnus-bug-group-download-format-alist): Update the URL.
2012-12-23 Andreas Schwab <schwab@suse.de> 2012-12-23 Andreas Schwab <schwab@suse.de>
   
* shr.el (shr-tag-em): Render em as italic, not bold. * shr.el (shr-tag-em): Render em as italic, not bold.
......
...@@ -2310,6 +2310,7 @@ Return the name of the group if selection was successful." ...@@ -2310,6 +2310,7 @@ Return the name of the group if selection was successful."
(let ((group (if (gnus-group-foreign-p group) group (let ((group (if (gnus-group-foreign-p group) group
(gnus-group-prefixed-name (gnus-group-real-name group) (gnus-group-prefixed-name (gnus-group-real-name group)
method)))) method))))
(gnus-set-active group nil)
(gnus-sethash (gnus-sethash
group group
`(-1 nil (,group `(-1 nil (,group
...@@ -2441,7 +2442,7 @@ Valid input formats include: ...@@ -2441,7 +2442,7 @@ Valid input formats include:
(gnus-read-ephemeral-gmane-group group start range))) (gnus-read-ephemeral-gmane-group group start range)))
(defcustom gnus-bug-group-download-format-alist (defcustom gnus-bug-group-download-format-alist
'((emacs . "http://debbugs.gnu.org/%s;mboxmaint=yes;mboxstat=yes") '((emacs . "http://debbugs.gnu.org/cgi/bugreport.cgi?bug=%s;mboxmaint=yes;mboxstat=yes")
(debian (debian
. "http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=%s&mbox=yes;mboxmaint=yes")) . "http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=%s&mbox=yes;mboxmaint=yes"))
"Alist of symbols for bug trackers and the corresponding URL format string. "Alist of symbols for bug trackers and the corresponding URL format string.
......
...@@ -713,6 +713,7 @@ claim them." ...@@ -713,6 +713,7 @@ claim them."
"q" gnus-browse-exit "q" gnus-browse-exit
"Q" gnus-browse-exit "Q" gnus-browse-exit
"d" gnus-browse-describe-group "d" gnus-browse-describe-group
[delete] gnus-browse-delete-group
"\C-c\C-c" gnus-browse-exit "\C-c\C-c" gnus-browse-exit
"?" gnus-browse-describe-briefly "?" gnus-browse-describe-briefly
...@@ -964,6 +965,16 @@ how new groups will be entered into the group buffer." ...@@ -964,6 +965,16 @@ how new groups will be entered into the group buffer."
(interactive (list (gnus-browse-group-name))) (interactive (list (gnus-browse-group-name)))
(gnus-group-describe-group nil group)) (gnus-group-describe-group nil group))
(defun gnus-browse-delete-group (group force)
"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 () (defun gnus-browse-unsubscribe-group ()
"Toggle subscription of the current group in the browse buffer." "Toggle subscription of the current group in the browse buffer."
(let ((sub nil) (let ((sub nil)
......
...@@ -11647,10 +11647,10 @@ If PREDICATE is supplied, threads that satisfy this predicate ...@@ -11647,10 +11647,10 @@ If PREDICATE is supplied, threads that satisfy this predicate
will not be hidden. will not be hidden.
Returns nil if no threads were there to be hidden." Returns nil if no threads were there to be hidden."
(interactive) (interactive)
(beginning-of-line)
(let ((start (point)) (let ((start (point))
(starteol (line-end-position)) (starteol (line-end-position))
(article (gnus-summary-article-number))) (article (gnus-summary-article-number)))
(goto-char start)
;; Go forward until either the buffer ends or the subthread ends. ;; Go forward until either the buffer ends or the subthread ends.
(when (and (not (eobp)) (when (and (not (eobp))
(or (zerop (gnus-summary-next-thread 1 t)) (or (zerop (gnus-summary-next-thread 1 t))
......
...@@ -264,7 +264,7 @@ This is a list of regexps and regexp matches." ...@@ -264,7 +264,7 @@ This is a list of regexps and regexp matches."
:type 'sexp) :type 'sexp)
(defcustom message-ignored-news-headers (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." "*Regexp of headers to be removed unconditionally before posting."
:group 'message-news :group 'message-news
:group 'message-headers :group 'message-headers
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment