Commit 821ff720 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

merge trunk

parents 0902a04e 8ddde651
2011-08-22 Juri Linkov <juri@jurta.org>
* compilation.txt: Add more samples of output and non-output
switches (bug#9319).
2011-08-19 Chong Yidong <cyd@stupidchicken.com> 2011-08-19 Chong Yidong <cyd@stupidchicken.com>
* themes/dichromacy-theme.el: * themes/dichromacy-theme.el:
......
...@@ -407,7 +407,7 @@ If non-nil, C-d, [delete], and DEL delete the region if it is active ...@@ -407,7 +407,7 @@ If non-nil, C-d, [delete], and DEL delete the region if it is active
and no prefix argument is given. If set to `kill', these commands and no prefix argument is given. If set to `kill', these commands
kill instead. kill instead.
*** New command `delete-forward-char', bound to C-d and [delete]. *** New command `delete-forward-char', bound to [delete].
This is meant for interactive use, and obeys `delete-active-region'. This is meant for interactive use, and obeys `delete-active-region'.
The command `delete-char' does not obey `delete-active-region'. The command `delete-char' does not obey `delete-active-region'.
......
...@@ -546,9 +546,20 @@ checking whether to build shared libraries... yes ...@@ -546,9 +546,20 @@ checking whether to build shared libraries... yes
checking whether -lc should be explicitly linked in... (cached) no checking whether -lc should be explicitly linked in... (cached) no
checking For GLIB - version >= 2.0.0... yes (version 2.1.0) checking For GLIB - version >= 2.0.0... yes (version 2.1.0)
checking FONTCONFIG_CFLAGS... checking FONTCONFIG_CFLAGS...
g++ -o foo.o foo.cc tool -o foo.o foo.c
tool1 -output=foo foo.x tool -o=foo.o foo.c
tool2 --outfile foo foo.y tool -output foo.o foo.c
tool -output=foo.o foo.c
tool -outfile foo.o foo.c
tool -outfile=foo.o foo.c
tool --output foo.o foo.c
tool --output=foo.o foo.c
tool --outfile foo.o foo.c
tool --outfile=foo.o foo.c
tool -omega foo.c foo2.c
tool -output-html-file foo.c foo2.c
tool --omega foo.c foo2.c
tool --output-html-file foo.c foo2.c
Compilation started at Wed Jul 20 12:20:10 Compilation started at Wed Jul 20 12:20:10
Compilation interrupt at Wed Jul 20 12:20:10 Compilation interrupt at Wed Jul 20 12:20:10
......
2011-08-20 Glenn Morris <rgm@gnu.org>
* Makefile.in (OTHERS):
* makefile.w32-in (MISC): Add ipa-praat.elc.
2011-07-23 Yair F <yair.f.lists@gmail.com> 2011-07-23 Yair F <yair.f.lists@gmail.com>
* quail/hebrew.el ("hebrew"): Additional key mappings. * quail/hebrew.el ("hebrew"): Additional key mappings.
......
...@@ -124,6 +124,7 @@ OTHERS= \ ...@@ -124,6 +124,7 @@ OTHERS= \
${srcdir}/quail/arabic.elc \ ${srcdir}/quail/arabic.elc \
${srcdir}/quail/ethiopic.elc \ ${srcdir}/quail/ethiopic.elc \
${srcdir}/quail/ipa.elc \ ${srcdir}/quail/ipa.elc \
${srcdir}/quail/ipa-praat.elc \
${srcdir}/quail/hebrew.elc \ ${srcdir}/quail/hebrew.elc \
${srcdir}/quail/georgian.elc \ ${srcdir}/quail/georgian.elc \
$(srcdir)/quail/persian.elc \ $(srcdir)/quail/persian.elc \
......
...@@ -118,6 +118,7 @@ MISC= \ ...@@ -118,6 +118,7 @@ MISC= \
$(srcdir)/quail/arabic.elc \ $(srcdir)/quail/arabic.elc \
$(srcdir)/quail/ethiopic.elc \ $(srcdir)/quail/ethiopic.elc \
$(srcdir)/quail/ipa.elc \ $(srcdir)/quail/ipa.elc \
$(srcdir)/quail/ipa-praat.elc \
$(srcdir)/quail/hebrew.elc \ $(srcdir)/quail/hebrew.elc \
$(srcdir)/quail/georgian.elc \ $(srcdir)/quail/georgian.elc \
$(srcdir)/quail/persian.elc \ $(srcdir)/quail/persian.elc \
......
...@@ -16,6 +16,142 @@ ...@@ -16,6 +16,142 @@
* international/uni-titlecase.el: * international/uni-titlecase.el:
* international/uni-uppercase.el: Regenerate. * international/uni-uppercase.el: Regenerate.
2011-08-23 Martin Rudalics <rudalics@gmx.at>
* help.el (help-window-setup): Fix message displayed when other
window is reused. (Bug#9341)
2011-08-23 Stefan Monnier <monnier@iro.umontreal.ca>
* shell.el (shell-completion-vars): Set pcomplete-arg-quote-list.
* pcomplete.el (pcomplete-quote-argument): Fix thinko (bug#9161).
* pcomplete.el (pcomplete-parse-comint-arguments): Fix inf-loop.
Mark obsolete.
* shell.el (shell-parse-pcomplete-arguments): New function.
(shell-completion-vars): Use it instead (bug#9160).
2011-08-22 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/sh-script.el (sh-maybe-here-document): Disable magic in
strings and comments (bug#9333).
* emacs-lisp/debug.el (debug-arglist): New function.
(debug-convert-byte-code): Use it. Handle lexical byte-codes.
(debug-on-entry-1): Handle interpreted closures (bug#9120).
2011-08-22 Juri Linkov <juri@jurta.org>
* progmodes/compile.el (compilation-mode-font-lock-keywords):
Revert regexp that highlights output switches to its old
pre-2010-10-28 value and remove one `?' from it (bug#9319).
* progmodes/grep.el (grep-process-setup): Use `buffer-modified-p'
to check for empty output (bug#9226).
2011-08-22 Chong Yidong <cyd@stupidchicken.com>
* progmodes/scheme.el (scheme-mode-syntax-table): Don't use
symbol-constituent as the default, as that stops font-lock from
working properly (Bug#8843).
2011-08-21 Lars Magne Ingebrigtsen <larsi@gnus.org>
* mail/smtpmail.el (smtpmail-via-smtp): Only bind
`coding-system-for-*' around the process open call to avoid
auth-source side effects.
(smtpmail-try-auth-methods): Expand the secret password.
(smtpmail-query-smtp-server): Allow `quit'-ing out in case the
probe hangs.
2011-08-21 Chong Yidong <cyd@stupidchicken.com>
* term.el (term-mouse-paste): Yank primary selection (Bug#6845).
* emacs-lisp/find-func.el (find-function-noselect): New arg
lisp-only.
* emacs-lisp/edebug.el (edebug-instrument-function): Use it to
signal an error for built-in functions (Bug#6664).
2011-08-21 Lars Magne Ingebrigtsen <larsi@gnus.org>
* mail/smtpmail.el (smtpmail-smtp-user): New variable.
(smtpmail-try-auth-methods): Use it.
2011-08-21 Chong Yidong <cyd@stupidchicken.com>
* font-lock.el (font-lock-fontify-region)
(font-lock-unfontify-region, font-lock-default-fontify-buffer)
(font-lock-default-unfontify-buffer)
(font-lock-default-fontify-region)
(font-lock-default-unfontify-region): Add docstrings (Bug#8624).
* progmodes/compile.el (compilation-error-properties):
Fix confusion between file struct and message struct (Bug#9319).
(compilation-error-regexp-alist-alist): Fix 2011-05-09 change to
`ant' regexp.
* net/browse-url.el (browse-url-firefox): Don't call
browse-url-firefox-sentinel unless using -remote (Bug#9328).
2011-08-20 Glenn Morris <rgm@gnu.org>
* tutorial.el (help-with-tutorial): Avoid an error on short screens.
* tutorial.el (tutorial--default-keys): Update some default bindings.
* files.el (hack-local-variables): Fully ignore case for "mode:".
2011-08-20 Alan Mackenzie <acm@muc.de>
Resolve invalid use of a regexp in regexp-opt.
* cc-fonts.el (c-complex-decl-matchers): Add in special detection
for a java annotation.
* cc-engine.el (c-forward-decl-or-cast-1): Add in special
detection for a java annotation.
* cc-langs.el (c-prefix-spec-kwds-re): Remove the special handling
for java.
(c-modifier-kwds): Remove the regexp "@[A-za-z0-9]+".
2011-08-20 Chong Yidong <cyd@stupidchicken.com>
* startup.el (normal-top-level-add-subdirs-to-load-path): Doc fix
(Bug#9274).
2011-08-20 Alan Mackenzie <acm@muc.de>
* Fontify CPP expressions correctly when starting in the middle of
such a construct. Mainly for when jit-lock etc. starts a chunk
here.
* progmodes/cc-fonts.el (c-font-lock-context): new buffer local
variable.
(c-make-font-lock-search-form): new function, extracted from
c-make-font-lock-search-function.
(c-make-font-lock-search-function): Use the above function.
(c-make-font-lock-context-search-function): New function.
(c-cpp-matchers): Enhance the preprocessor expression case with
the above function
(c-font-lock-complex-decl-prepare): Test for being in a CPP form
which takes an expression.
* progmodes/cc-langs.el (c-cpp-expr-intro-re): New lang-variable.
2011-08-20 Martin Rudalics <rudalics@gmx.at>
* window.el (display-buffer-reuse-window)
(display-buffer-pop-up-window): Don't reuse or split a side
window.
2011-08-19 Glenn Morris <rgm@gnu.org>
* files.el (hack-local-variables-prop-line, hack-local-variables):
Downcase "Mode:". (Bug#9331)
2011-08-18 Chong Yidong <cyd@stupidchicken.com> 2011-08-18 Chong Yidong <cyd@stupidchicken.com>
* international/characters.el: Add L and R categories. * international/characters.el: Add L and R categories.
...@@ -46,8 +182,8 @@ ...@@ -46,8 +182,8 @@
binding variables (bug#9298). Also clean up some unused binding variables (bug#9298). Also clean up some unused
autoloads. autoloads.
* net/network-stream.el (network-stream-open-starttls): Support * net/network-stream.el (network-stream-open-starttls):
using starttls.el without using gnutls-cli. Support using starttls.el without using gnutls-cli.
2011-08-17 Juri Linkov <juri@jurta.org> 2011-08-17 Juri Linkov <juri@jurta.org>
......
...@@ -834,6 +834,7 @@ if `inhibit-field-text-motion' is non-nil." ...@@ -834,6 +834,7 @@ if `inhibit-field-text-motion' is non-nil."
(setq i (1+ i)))) (setq i (1+ i))))
(define-key global-map [?\C-\M--] 'negative-argument) (define-key global-map [?\C-\M--] 'negative-argument)
;; Update tutorial--default-keys if you change these.
(define-key global-map "\177" 'delete-backward-char) (define-key global-map "\177" 'delete-backward-char)
(define-key global-map "\C-d" 'delete-char) (define-key global-map "\C-d" 'delete-char)
......
...@@ -778,6 +778,7 @@ Redefining FUNCTION also cancels it." ...@@ -778,6 +778,7 @@ Redefining FUNCTION also cancels it."
(not (debugger-special-form-p symbol)))) (not (debugger-special-form-p symbol))))
t nil nil (symbol-name fn))) t nil nil (symbol-name fn)))
(list (if (equal val "") fn (intern val))))) (list (if (equal val "") fn (intern val)))))
;; FIXME: Use advice.el.
(when (debugger-special-form-p function) (when (debugger-special-form-p function)
(error "Function %s is a special form" function)) (error "Function %s is a special form" function))
(if (or (symbolp (symbol-function function)) (if (or (symbolp (symbol-function function))
...@@ -835,24 +836,30 @@ To specify a nil argument interactively, exit with an empty minibuffer." ...@@ -835,24 +836,30 @@ To specify a nil argument interactively, exit with an empty minibuffer."
(message "Cancelling debug-on-entry for all functions") (message "Cancelling debug-on-entry for all functions")
(mapcar 'cancel-debug-on-entry debug-function-list))) (mapcar 'cancel-debug-on-entry debug-function-list)))
(defun debug-arglist (definition)
;; FIXME: copied from ad-arglist.
"Return the argument list of DEFINITION."
(require 'help-fns)
(help-function-arglist definition 'preserve-names))
(defun debug-convert-byte-code (function) (defun debug-convert-byte-code (function)
(let* ((defn (symbol-function function)) (let* ((defn (symbol-function function))
(macro (eq (car-safe defn) 'macro))) (macro (eq (car-safe defn) 'macro)))
(when macro (setq defn (cdr defn))) (when macro (setq defn (cdr defn)))
(unless (consp defn) (when (byte-code-function-p defn)
;; Assume a compiled code object. (let* ((args (debug-arglist defn))
(let* ((contents (append defn nil))
(body (body
(list (list 'byte-code (nth 1 contents) `((,(if (memq '&rest args) #'apply #'funcall)
(nth 2 contents) (nth 3 contents))))) ,defn
(if (nthcdr 5 contents) ,@(remq '&rest (remq '&optional args))))))
(setq body (cons (list 'interactive (nth 5 contents)) body))) (if (> (length defn) 5)
(if (nth 4 contents) (push `(interactive ,(aref defn 5)) body))
(if (aref defn 4)
;; Use `documentation' here, to get the actual string, ;; Use `documentation' here, to get the actual string,
;; in case the compiled function has a reference ;; in case the compiled function has a reference
;; to the .elc file. ;; to the .elc file.
(setq body (cons (documentation function) body))) (setq body (cons (documentation function) body)))
(setq defn (cons 'lambda (cons (car contents) body)))) (setq defn `(closure (t) ,args ,@body)))
(when macro (setq defn (cons 'macro defn))) (when macro (setq defn (cons 'macro defn)))
(fset function defn)))) (fset function defn))))
...@@ -861,11 +868,12 @@ To specify a nil argument interactively, exit with an empty minibuffer." ...@@ -861,11 +868,12 @@ To specify a nil argument interactively, exit with an empty minibuffer."
(tail defn)) (tail defn))
(when (eq (car-safe tail) 'macro) (when (eq (car-safe tail) 'macro)
(setq tail (cdr tail))) (setq tail (cdr tail)))
(if (not (eq (car-safe tail) 'lambda)) (if (not (memq (car-safe tail) '(closure lambda)))
;; Only signal an error when we try to set debug-on-entry. ;; Only signal an error when we try to set debug-on-entry.
;; When we try to clear debug-on-entry, we are now done. ;; When we try to clear debug-on-entry, we are now done.
(when flag (when flag
(error "%s is not a user-defined Lisp function" function)) (error "%s is not a user-defined Lisp function" function))
(if (eq (car tail) 'closure) (setq tail (cdr tail)))
(setq tail (cdr tail)) (setq tail (cdr tail))
;; Skip the docstring. ;; Skip the docstring.
(when (and (stringp (cadr tail)) (cddr tail)) (when (and (stringp (cadr tail)) (cddr tail))
...@@ -875,9 +883,9 @@ To specify a nil argument interactively, exit with an empty minibuffer." ...@@ -875,9 +883,9 @@ To specify a nil argument interactively, exit with an empty minibuffer."
(setq tail (cdr tail))) (setq tail (cdr tail)))
(unless (eq flag (equal (cadr tail) '(implement-debug-on-entry))) (unless (eq flag (equal (cadr tail) '(implement-debug-on-entry)))
;; Add/remove debug statement as needed. ;; Add/remove debug statement as needed.
(if flag (setcdr tail (if flag
(setcdr tail (cons '(implement-debug-on-entry) (cdr tail))) (cons '(implement-debug-on-entry) (cdr tail))
(setcdr tail (cddr tail))))) (cddr tail)))))
defn)) defn))
(defun debugger-list-functions () (defun debugger-list-functions ()
......
...@@ -3408,7 +3408,7 @@ go to the end of the last sexp, or if that is the same point, then step." ...@@ -3408,7 +3408,7 @@ go to the end of the last sexp, or if that is the same point, then step."
(message "%s is already instrumented." func) (message "%s is already instrumented." func)
func) func)
(t (t
(let ((loc (find-function-noselect func))) (let ((loc (find-function-noselect func t)))
(unless (cdr loc) (unless (cdr loc)
(error "Could not find the definition in its file")) (error "Could not find the definition in its file"))
(with-current-buffer (car loc) (with-current-buffer (car loc)
......
...@@ -312,7 +312,7 @@ The search is done in the source for library LIBRARY." ...@@ -312,7 +312,7 @@ The search is done in the source for library LIBRARY."
(cons (current-buffer) nil)))))))) (cons (current-buffer) nil))))))))
;;;###autoload ;;;###autoload
(defun find-function-noselect (function) (defun find-function-noselect (function &optional lisp-only)
"Return a pair (BUFFER . POINT) pointing to the definition of FUNCTION. "Return a pair (BUFFER . POINT) pointing to the definition of FUNCTION.
Finds the source file containing the definition of FUNCTION Finds the source file containing the definition of FUNCTION
...@@ -320,6 +320,10 @@ in a buffer and the point of the definition. The buffer is ...@@ -320,6 +320,10 @@ in a buffer and the point of the definition. The buffer is
not selected. If the function definition can't be found in not selected. If the function definition can't be found in
the buffer, returns (BUFFER). the buffer, returns (BUFFER).
If FUNCTION is a built-in function, this function normally
attempts to find it in the Emacs C sources; however, if LISP-ONLY
is non-nil, signal an error instead.
If the file where FUNCTION is defined is not known, then it is If the file where FUNCTION is defined is not known, then it is
searched for in `find-function-source-path' if non-nil, otherwise searched for in `find-function-source-path' if non-nil, otherwise
in `load-path'." in `load-path'."
...@@ -345,6 +349,8 @@ in `load-path'." ...@@ -345,6 +349,8 @@ in `load-path'."
(cond ((eq (car-safe def) 'autoload) (cond ((eq (car-safe def) 'autoload)
(nth 1 def)) (nth 1 def))
((subrp def) ((subrp def)
(if lisp-only
(error "%s is a built-in function" function))
(help-C-file-name def 'subr)) (help-C-file-name def 'subr))
((symbol-file function 'defun))))) ((symbol-file function 'defun)))))
(find-function-search-for-symbol function nil library)))) (find-function-search-for-symbol function nil library))))
......
...@@ -3003,9 +3003,10 @@ mode, if there is one, otherwise nil." ...@@ -3003,9 +3003,10 @@ mode, if there is one, otherwise nil."
"-mode")))) "-mode"))))
(or (equal keyname "coding") (or (equal keyname "coding")
(condition-case nil (condition-case nil
(push (cons (if (eq key 'eval) (push (cons (cond ((eq key 'eval) 'eval)
'eval ;; Downcase "Mode:".
(indirect-variable key)) ((equal keyname "mode") 'mode)
(t (indirect-variable key)))
val) result) val) result)
(error nil)))) (error nil))))
(skip-chars-forward " \t;"))) (skip-chars-forward " \t;")))
...@@ -3153,6 +3154,8 @@ major-mode." ...@@ -3153,6 +3154,8 @@ major-mode."
(var (let ((read-circle nil)) (var (let ((read-circle nil))
(read str))) (read str)))
val val2) val val2)
(and (equal (downcase (symbol-name var)) "mode")
(setq var 'mode))
;; Read the variable value. ;; Read the variable value.
(skip-chars-forward "^:") (skip-chars-forward "^:")
(forward-char 1) (forward-char 1)
......
...@@ -1018,14 +1018,20 @@ The region it returns may start or end in the middle of a line.") ...@@ -1018,14 +1018,20 @@ The region it returns may start or end in the middle of a line.")
(funcall font-lock-unfontify-buffer-function)) (funcall font-lock-unfontify-buffer-function))
(defun font-lock-fontify-region (beg end &optional loudly) (defun font-lock-fontify-region (beg end &optional loudly)
"Fontify the text between BEG and END.
If LOUDLY is non-nil, print status messages while fontifying.
This works by calling `font-lock-fontify-region-function'."
(font-lock-set-defaults) (font-lock-set-defaults)
(funcall font-lock-fontify-region-function beg end loudly)) (funcall font-lock-fontify-region-function beg end loudly))
(defun font-lock-unfontify-region (beg end) (defun font-lock-unfontify-region (beg end)
"Unfontify the text between BEG and END.
This works by calling `font-lock-unfontify-region-function'."
(save-buffer-state (save-buffer-state
(funcall font-lock-unfontify-region-function beg end))) (funcall font-lock-unfontify-region-function beg end)))
(defun font-lock-default-fontify-buffer () (defun font-lock-default-fontify-buffer ()
"Fontify the whole buffer using `font-lock-fontify-region-function'."
(let ((verbose (if (numberp font-lock-verbose) (let ((verbose (if (numberp font-lock-verbose)
(> (buffer-size) font-lock-verbose) (> (buffer-size) font-lock-verbose)
font-lock-verbose))) font-lock-verbose)))
...@@ -1045,6 +1051,7 @@ The region it returns may start or end in the middle of a line.") ...@@ -1045,6 +1051,7 @@ The region it returns may start or end in the middle of a line.")
(quit (font-lock-unfontify-buffer))))))) (quit (font-lock-unfontify-buffer)))))))
(defun font-lock-default-unfontify-buffer () (defun font-lock-default-unfontify-buffer ()
"Unfontify the whole buffer using `font-lock-unfontify-region-function'."
;; Make sure we unfontify etc. in the whole buffer. ;; Make sure we unfontify etc. in the whole buffer.
(save-restriction (save-restriction
(widen) (widen)
...@@ -1114,6 +1121,9 @@ Put first the functions more likely to cause a change and cheaper to compute.") ...@@ -1114,6 +1121,9 @@ Put first the functions more likely to cause a change and cheaper to compute.")
changed)) changed))
(defun font-lock-default-fontify-region (beg end loudly) (defun font-lock-default-fontify-region (beg end loudly)
"Fontify the text between BEG and END.
If LOUDLY is non-nil, print status messages while fontifying.
This function is the default `font-lock-fontify-region-function'."
(save-buffer-state (save-buffer-state
;; Use the fontification syntax table, if any. ;; Use the fontification syntax table, if any.
(with-syntax-table (or font-lock-syntax-table (syntax-table)) (with-syntax-table (or font-lock-syntax-table (syntax-table))
...@@ -1162,6 +1172,8 @@ This is used by `font-lock-default-unfontify-region' to decide ...@@ -1162,6 +1172,8 @@ This is used by `font-lock-default-unfontify-region' to decide
what properties to clear before refontifying a region.") what properties to clear before refontifying a region.")
(defun font-lock-default-unfontify-region (beg end) (defun font-lock-default-unfontify-region (beg end)
"Unfontify the text between BEG and END.
This function is the default `font-lock-unfontify-region-function'."
(remove-list-of-text-properties (remove-list-of-text-properties
beg end (append beg end (append
font-lock-extra-managed-props font-lock-extra-managed-props
......
2011-08-21 Lars Magne Ingebrigtsen <larsi@gnus.org>
* nnmail.el (nnmail-get-new-mail-1): If one mail source bugs out,
continue on and do the clean-up phase (bug#9188).
* gnus-sum.el (gnus-summary-expire-articles): When expiring articles,
just ignore groups that can't be opened instead of erroring out
(bug#9225).
* gnus-art.el (gnus-article-update-date-headers): Flip the default to
nil since some many people are fuddy-duddies.
* gnus-html.el (gnus-html-image-fetched): Don't cache zero-length
images.
* nntp.el (nntp-authinfo-file): Mark as obsolete -- use auth-source
instead.
* pop3.el (pop3-wait-for-messages): Don't use Gnus functions here.
* gnus-util.el (gnus-process-live-p): Copy over compat function.
* pop3.el (pop3-wait-for-messages): If the pop3 process dies, stop
processing.
* nntp.el (nntp-kill-buffer): Kill the process before killing the
buffer to avoid warnings.
2011-08-20 Simon Josefsson <simon@josefsson.org>
* gnus-agent.el (gnus-agent-expire-done-message): Use %.f as format
specified to reduce precision.
2011-08-19 Lars Magne Ingebrigtsen <larsi@gnus.org>
* nnimap.el (nnimap-transform-headers): Protect against (NIL ...)
bodystructures (bug#9314).
2011-08-19 Katsumi Yamaoka <yamaoka@jpl.org> 2011-08-19 Katsumi Yamaoka <yamaoka@jpl.org>
   
* gnus-art.el (gnus-insert-mime-button, gnus-mime-display-alternative): * gnus-art.el (gnus-insert-mime-button, gnus-mime-display-alternative):
...@@ -12,8 +50,29 @@ ...@@ -12,8 +50,29 @@
`gnus-registry-get-id-key' since `gnus-registry-fetch-groups' isn't `gnus-registry-get-id-key' since `gnus-registry-fetch-groups' isn't
available anymore. available anymore.
   
2011-08-12 Simon Josefsson <simon@josefsson.org>
* starttls.el (starttls-any-program-available): Define as obsolete
function.
2011-08-18 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-util.el (gnus-y-or-n-p): Reinstate the message-clearing y-or-n-p
versions which Gnus use when appropriate.
* gnus-group.el (gnus-group-clear-data): Add a y-or-n query, since it's
a pretty destructive command.
* nnmail.el (nnmail-extra-headers): Clarify slightly (bug#9302).
2011-08-17 Lars Magne Ingebrigtsen <larsi@gnus.org> 2011-08-17 Lars Magne Ingebrigtsen <larsi@gnus.org>
   
* message.el (message-fix-before-sending): Make a different warning
about NUL characters (bug#9270).
* gnus-sum.el (gnus-auto-select-subject): Allow specifying a function
from custom (bug#9260).
* gnus-spec.el (gnus-lrm-string): Use 8206 instead of ?\x200e to make * gnus-spec.el (gnus-lrm-string): Use 8206 instead of ?\x200e to make
things work in Emacs 22 and XEmacs, too. things work in Emacs 22 and XEmacs, too.
   
......
...@@ -3560,7 +3560,7 @@ articles in every agentized group? ")) ...@@ -3560,7 +3560,7 @@ articles in every agentized group? "))
units (cdr units))) units (cdr units)))
(format "Expiry recovered %d NOV entries, deleted %d files,\ (format "Expiry recovered %d NOV entries, deleted %d files,\
and freed %f %s." and freed %.f %s."
(nth 0 stats) (nth 0 stats)