Mercurial > emacs
comparison lisp/gnus/gnus-util.el @ 111269:3d7a1caabf14
Merge changes made in Gnus trunk.
nnimap.el (nnimap-open-connection): Only send AUTHENTICATE PLAIN if LOGINDISABLED is set.
gnus.el (gnus-group-startup-message): Move point to the start of the buffer.
nndoc.el (nndoc-dissect-buffer): Reverse the order of the articles to reflect the order they're in in the digest.
gnus-sum.el (gnus-summary-select-article): Make `C-d' work reliably by checking whether the original article buffer is alive.
shr.el (shr-find-fill-point): Don't break lines between punctuation and non-punctuation (like after the apostrophe in "'We").
gnus-cite.el (gnus-article-fill-cited-article): Remove unused `force' parameter.
gnus-art.el (gnus-treatment-function-alist): Have gnus-treat-fill-long-lines point to gnus-article-fill-cited-long-lines.
gnus-art.el (gnus-treat-fill-long-lines): Change default to fill all text/plain sections.
gnus.el: Autoload gnus-article-fill-cited-long-lines.
gnus-art.el (gnus-mime-display-alternative): Actually pass the type on to `gnus-treat-article'.
gnus-sum.el (gnus-summary-show-article): Add `C-u C-u g' for showing the raw article, and change `C-u g' to show the article without doing treatments.
gnus.texi (Paging the Article): Document C-u g/C-u C-u g.
gnus-cite.el (gnus-article-foldable-buffer): Refactor out.
gnus-cite.el (gnus-article-foldable-buffer): Don't fold regions that have a ragged left edge.
gnus-cite.el (gnus-article-foldable-buffer): Skip past the prefix when determining raggedness.
gnus-srvr.el, nnir.el: Allow nnir searching for an entire server.
gnus-msg.el (gnus-configure-posting-styles): Permit the use of regular expression match and replace in posting styles.
gnus-art.el (gnus-treat-article): Only inhibit body washing, and leave the header washing to take place.
nnimap.el (nnimap-request-accept-article): Erase buffer before appending for easier debugging.
nnimap.el (nnimap-wait-for-connection): Take a regexp.
nnimap.el (nnimap-request-accept-article): Wait for the continuation line before sending anything unless we're streaming.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Sun, 31 Oct 2010 22:31:24 +0000 |
parents | ffb890b32d37 |
children | 23bef14261e1 |
comparison
equal
deleted
inserted
replaced
111268:a8ba29b9ad19 | 111269:3d7a1caabf14 |
---|---|
1980 (dolist (elem elements) | 1980 (dolist (elem elements) |
1981 (setq found (or found | 1981 (setq found (or found |
1982 (memq elem list)))) | 1982 (memq elem list)))) |
1983 found)) | 1983 found)) |
1984 | 1984 |
1985 (eval-and-compile | |
1986 (cond | |
1987 ((fboundp 'match-substitute-replacement) | |
1988 (defalias 'gnus-match-substitute-replacement 'match-substitute-replacement)) | |
1989 (t | |
1990 (defun gnus-match-substitute-replacement (replacement &optional fixedcase literal string subexp) | |
1991 "Return REPLACEMENT as it will be inserted by `replace-match'. | |
1992 In other words, all back-references in the form `\\&' and `\\N' | |
1993 are substituted with actual strings matched by the last search. | |
1994 Optional FIXEDCASE, LITERAL, STRING and SUBEXP have the same | |
1995 meaning as for `replace-match'. | |
1996 | |
1997 This is the definition of match-substitute-replacement in subr.el from GNU Emacs." | |
1998 (let ((match (match-string 0 string))) | |
1999 (save-match-data | |
2000 (set-match-data (mapcar (lambda (x) | |
2001 (if (numberp x) | |
2002 (- x (match-beginning 0)) | |
2003 x)) | |
2004 (match-data t))) | |
2005 (replace-match replacement fixedcase literal match subexp))))))) | |
2006 | |
1985 (provide 'gnus-util) | 2007 (provide 'gnus-util) |
1986 | 2008 |
1987 ;;; gnus-util.el ends here | 2009 ;;; gnus-util.el ends here |