diff options
| author | Lars Ingebrigtsen | 2017-01-26 22:52:16 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2017-01-26 22:52:16 +0100 |
| commit | 3539657bb726b91f2bc475d4e1c5fe276feb064f (patch) | |
| tree | c00ea616cec691a26d446a7bea3541004c0554bb | |
| parent | 77bbca8c82f6e553c42abbfafca28f55fc995d00 (diff) | |
| download | emacs-3539657bb726b91f2bc475d4e1c5fe276feb064f.tar.gz emacs-3539657bb726b91f2bc475d4e1c5fe276feb064f.zip | |
Remove dead code from rfc2047
* lisp/mail/rfc2047.el (rfc2047-fold-field): Remove dead code.
It's been disabled since 2005, when I made the change with the
following comment.
(rfc2047-encode-message-header): Disabled header folding -- not
all headers can be folded, and this should be done by the message
composition mode. Probably. I think.
| -rw-r--r-- | lisp/mail/rfc2047.el | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/lisp/mail/rfc2047.el b/lisp/mail/rfc2047.el index 2a8160921a6..bcbdc17631d 100644 --- a/lisp/mail/rfc2047.el +++ b/lisp/mail/rfc2047.el | |||
| @@ -281,17 +281,7 @@ Should be called narrowed to the head of the message." | |||
| 281 | (encode-coding-region | 281 | (encode-coding-region |
| 282 | (point-min) (point-max) | 282 | (point-min) (point-max) |
| 283 | (mm-charset-to-coding-system | 283 | (mm-charset-to-coding-system |
| 284 | (car message-posting-charset)))) | 284 | (car message-posting-charset))))) |
| 285 | ;; No encoding necessary, but folding is nice | ||
| 286 | (when nil | ||
| 287 | (rfc2047-fold-region | ||
| 288 | (save-excursion | ||
| 289 | (goto-char (point-min)) | ||
| 290 | (skip-chars-forward "^:") | ||
| 291 | (when (looking-at ": ") | ||
| 292 | (forward-char 2)) | ||
| 293 | (point)) | ||
| 294 | (point-max)))) | ||
| 295 | ;; We found something that may perhaps be encoded. | 285 | ;; We found something that may perhaps be encoded. |
| 296 | (re-search-forward "^[^:]+: *" nil t) | 286 | (re-search-forward "^[^:]+: *" nil t) |
| 297 | (cond | 287 | (cond |