mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-12 09:28:24 +00:00
Code Issues Releases Activity

Merge changes made in Gnus master

Browse Source 
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'.
This commit is contained in:
Lars Ingebrigtsen 2012-12-24 22:56:47 +00:00 committed by Katsumi Yamaoka
parent dc64635827
commit 61bbede67c
7 changed files with 47 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
doc/misc/ChangeLog
View File

@ -1,3 +1,8 @@
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>
* ada-mode.texi, ebrowse.texi, ediff.texi, ert.texi, eshell.texi:

9
doc/misc/gnus.texi
View File

@ -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

18
lisp/gnus/ChangeLog
View File

@ -1,3 +1,21 @@
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>
* shr.el (shr-tag-em): Render em as italic, not bold.

3
lisp/gnus/gnus-group.el
View File

@ -2310,6 +2310,7 @@ Return the name of the group if selection was successful."
(let ((group (if (gnus-group-foreign-p group) group
(gnus-group-prefixed-name (gnus-group-real-name group)
method))))
(gnus-set-active group nil)
(gnus-sethash
group
`(-1 nil (,group
@ -2441,7 +2442,7 @@ Valid input formats include:
(gnus-read-ephemeral-gmane-group group start range)))
(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
. "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.

11
lisp/gnus/gnus-srvr.el
View File

@ -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 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 ()
"Toggle subscription of the current group in the browse buffer."
(let ((sub nil)

2
lisp/gnus/gnus-sum.el
View File

@ -11647,10 +11647,10 @@ If PREDICATE is supplied, threads that satisfy this predicate
will not be hidden.
Returns nil if no threads were there to be hidden."
(interactive)
(beginning-of-line)
(let ((start (point))
(starteol (line-end-position))
(article (gnus-summary-article-number)))
(goto-char start)
;; Go forward until either the buffer ends or the subthread ends.
(when (and (not (eobp))
(or (zerop (gnus-summary-next-thread 1 t))

2
lisp/gnus/message.el
View File

@ -264,7 +264,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