mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

[Gnus] XEmacs 21.5 compilation fix

Browse source 
* gnus-score.el (gnus-score-decode-text-parts): Use #' for
  mm-text-parts used in labels macro to make it work with XEmacs 21.5.
* gnus-util.el (gnus-string-prefix-p): New function, an alias to
  string-prefix-p in Emacs >=23.2.
* nnmaildir.el (nnmaildir--ensure-suffix, nnmaildir--add-flag)
  (nnmaildir--remove-flag, nnmaildir--scan): Use gnus-string-match-p
  instead of string-match-p.
  (nnmaildir--scan): Use gnus-string-prefix-p instead of string-prefix-p.
This commit is contained in:
Katsumi Yamaoka 2012-09-06 02:20:21 +00:00
parent fca81a8d40
commit 4fd78b62d1
4 changed files with 30 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/gnus-score.el
View file

@ -1720,7 +1720,7 @@ score in `gnus-newsgroup-scored' by SCORE."
(defun gnus-score-decode-text-parts ()
(labels ((mm-text-parts (handle)
(cond ((stringp (car handle))
(let ((parts (mapcan 'mm-text-parts (cdr handle))))
(let ((parts (mapcan #'mm-text-parts (cdr handle))))
(if (equal "multipart/alternative" (car handle))
;; pick the first supported alternative
(list (car parts))
@ -1730,7 +1730,7 @@ score in `gnus-newsgroup-scored' by SCORE."
(when (string-match "^text/" (mm-handle-media-type handle))
(list handle)))
(t (mapcan 'mm-text-parts handle))))
(t (mapcan #'mm-text-parts handle))))
(my-mm-display-part (handle)
(when handle
(save-restriction