Mercurial > emacs
comparison lisp/gnus/gnus-ems.el @ 111430:b75e6634a171
gnus-int.el, nnimap.el, nnir.el: More improvements to thread-referral.
message.el (message-send-mail): Don't insert courtesy messages if the message already has List-Post and List-ID messages.
gnus-ems.el (gnus-put-image): Use a blank text as the insertion string to avoid making the From headers syntactically invalid.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Sun, 07 Nov 2010 00:22:06 +0000 |
| parents | d66d04803828 |
| children | 417b1e4d63cd |
comparison
equal
deleted
inserted
replaced
| 111429:249a1455856a | 111430:b75e6634a171 |
|---|---|
| 179 (ignore-errors | 179 (ignore-errors |
| 180 (apply 'create-image file type data-p props)))) | 180 (apply 'create-image file type data-p props)))) |
| 181 | 181 |
| 182 (defun gnus-put-image (glyph &optional string category) | 182 (defun gnus-put-image (glyph &optional string category) |
| 183 (let ((point (point))) | 183 (let ((point (point))) |
| 184 (insert-image glyph (or string "*")) | 184 (insert-image glyph (or string " ")) |
| 185 (put-text-property point (point) 'gnus-image-category category) | 185 (put-text-property point (point) 'gnus-image-category category) |
| 186 (unless string | 186 (unless string |
| 187 (put-text-property (1- (point)) (point) | 187 (put-text-property (1- (point)) (point) |
| 188 'gnus-image-text-deletable t)) | 188 'gnus-image-text-deletable t)) |
| 189 glyph)) | 189 glyph)) |