From: shuhei-k <shuhei-k>
Date: Sat, 30 May 1998 14:54:59 +0000 (+0000)
Subject: (gnus-cache-possibly-enter-article): Use `raw-text' property for saving
X-Git-Tag: semi-mule-199811302358~102
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=76be3bd4143d372f6eadd372a7042bbf465247a8;p=elisp%2Fgnus.git-

(gnus-cache-possibly-enter-article): Use `raw-text' property for saving
cache file.
---

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) "")