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