Mercurial > emacs

comparison lisp/gnus/rfc2047.el @ 35453:26726eff41ca zsh-sync-ognus-2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2001-01-21 ShengHuo ZHU <zsh@cs.rochester.edu> * message.el (message-forward): Use mule4. * mm-util.el (mm-string-as-unibyte): New. * message.el (message-forward): Use it. * message.el (message-cite-original-without-signature): Don't peel off the blank line. (message-get-reply-headers): Add Cc if it is not in follow-to. * message.el (message-send-mail): Content-Type may not be there. By Alberto Lusiani. * gnus-art.el (article-display-x-face): Insert X-Face if there is not. * rfc2047.el (rfc2047-fold-region): Don't insert LWSP if there is one. * gnus-win.el (gnus-configure-windows): switch-to-buffer in XEmacs. (gnus-remove-some-windows): Ditto. * mm-decode.el (mm-interactively-view-part): Don't copy-sequence handle. * gnus-art.el (gnus-mime-view-part): Copy it. (gnus-mime-view-part-as-type): Add into gnus-article-mime-handles. * nnmail.el (nnmail-get-new-mail): Find group only if file is not orig-file. Use ',source. * nnslashdot.el (nnslashdot-request-list): Get the right year. By Lars Magne Ingebrigtsen. * pop3.el (pop3-get-message-count): Andrew Innes <andrewi@gnu.org>'s patch of 1999-12-01 was not fully committed.
author ShengHuo ZHU <zsh@cs.rochester.edu>
date Sun, 21 Jan 2001 05:33:42 +0000
parents 79dde983f45b
children 53eebdb81828
comparison
equal deleted inserted replaced
35452:00c8bb05bc55 35453:26726eff41ca
302 (while (not (eobp)) 302 (while (not (eobp))
303 (when (and (or break qword-break) (> (- (point) bol) 76)) 303 (when (and (or break qword-break) (> (- (point) bol) 76))
304 (goto-char (or break qword-break)) 304 (goto-char (or break qword-break))
305 (setq break nil 305 (setq break nil
306 qword-break nil) 306 qword-break nil)
307 (insert "\n ") 307 (if (looking-at " \t")
308 (insert "\n")
309 (insert "\n "))
308 (setq bol (1- (point))) 310 (setq bol (1- (point)))
309 ;; Don't break before the first non-LWSP characters. 311 ;; Don't break before the first non-LWSP characters.
310 (skip-chars-forward " \t") 312 (skip-chars-forward " \t")
311 (forward-char 1)) 313 (forward-char 1))
312 (cond 314 (cond
334 (skip-chars-forward "^ \t\n\r")))) 336 (skip-chars-forward "^ \t\n\r"))))
335 (when (and (or break qword-break) (> (- (point) bol) 76)) 337 (when (and (or break qword-break) (> (- (point) bol) 76))
336 (goto-char (or break qword-break)) 338 (goto-char (or break qword-break))
337 (setq break nil 339 (setq break nil
338 qword-break nil) 340 qword-break nil)
339 (insert "\n ") 341 (if (looking-at " \t")
342 (insert "\n")
343 (insert "\n "))
340 (setq bol (1- (point))) 344 (setq bol (1- (point)))
341 ;; Don't break before the first non-LWSP characters. 345 ;; Don't break before the first non-LWSP characters.
342 (skip-chars-forward " \t") 346 (skip-chars-forward " \t")
343 (forward-char 1))))) 347 (forward-char 1)))))
344 348