From 76be3bd4143d372f6eadd372a7042bbf465247a8 Mon Sep 17 00:00:00 2001 From: shuhei-k Date: Sat, 30 May 1998 14:54:59 +0000 Subject: [PATCH] (gnus-cache-possibly-enter-article): Use `raw-text' property for saving cache file. --- lisp/gnus-cache.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el index 430a452..08bb666 100644 --- a/lisp/gnus-cache.el +++ b/lisp/gnus-cache.el @@ -181,8 +181,12 @@ variable to \"^nnml\"." ;; [number subject from date id references chars lines xref] (insert (format "%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t\n" (mail-header-number headers) - (mail-header-subject headers) - (mail-header-from headers) + (let ((subject (mail-header-subject headers))) + (or (get-text-property 0 'raw-text subject) + subject)) + (let ((from (mail-header-from headers))) + (or (get-text-property 0 'raw-text from) + from)) (mail-header-date headers) (mail-header-id headers) (or (mail-header-references headers) "") -- 1.7.10.4