emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r102967: Merge changes made in Gnus t


From: Katsumi Yamaoka
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r102967: Merge changes made in Gnus trunk.
Date: Mon, 24 Jan 2011 23:38:05 +0000
User-agent: Bazaar (2.0.3)

------------------------------------------------------------
revno: 102967
author: Gnus developers <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2011-01-24 23:38:05 +0000
message:
  Merge changes made in Gnus trunk.
  
  shr.el: Use defface to create shr-tag-h[1-6] faces to fontify h[1-6] tags.
  mml-smime.el (mml-smime-use): Make it a defcustom and default to 'epg if EPG 
is loaded.
  message.texi (IDNA): Explain what it is.
  gnus.texi (The Empty Backend): Document nnnil (bug #7653).
  gnus-agent.el (gnus-agent-prompt-send-queue): Whitespace fix.
  shr.el (shr-expand-newlines): Proof of concept implemantation of boxy 
backgrounds.
   (shr-expand-newlines): Switch to using overlays to enable kill'n'yank in a 
more sensible manner.
modified:
  doc/misc/ChangeLog
  doc/misc/gnus.texi
  doc/misc/message.texi
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-agent.el
  lisp/gnus/mml-smime.el
  lisp/gnus/shr.el
=== modified file 'doc/misc/ChangeLog'
--- a/doc/misc/ChangeLog        2011-01-23 10:38:14 +0000
+++ b/doc/misc/ChangeLog        2011-01-24 23:38:05 +0000
@@ -1,3 +1,11 @@
+2011-01-24  Teodor Zlatanov  <address@hidden>
+
+       * message.texi (IDNA): Explain what it is.
+
+2011-01-24  Lars Ingebrigtsen  <address@hidden>
+
+       * gnus.texi (The Empty Backend): Document nnnil (bug #7653).
+
 2011-01-23  Werner Lemberg  <address@hidden>
 
        * Makefile.in (MAKEINFO): Now controlled by `configure'.

=== modified file 'doc/misc/gnus.texi'
--- a/doc/misc/gnus.texi        2011-01-14 17:18:41 +0000
+++ b/doc/misc/gnus.texi        2011-01-24 23:38:05 +0000
@@ -704,6 +704,7 @@
 * Anything Groups::             Dired?  Who needs dired?
 * Document Groups::             Single files can be the basis of a group.
 * Mail-To-News Gateways::       Posting articles via mail-to-news gateways.
+* The Empty Backend::           The backend that never has any news.
 
 Document Groups
 
@@ -17127,6 +17128,7 @@
 * Anything Groups::             Dired?  Who needs dired?
 * Document Groups::             Single files can be the basis of a group.
 * Mail-To-News Gateways::       Posting articles via mail-to-news gateways.
+* The Empty Backend::           The backend that never has any news.
 @end menu
 
 
@@ -17574,6 +17576,22 @@
 @end lisp
 
 
address@hidden The Empty Backend
address@hidden The Empty Backend
address@hidden nnnil
+
address@hidden is a backend that can be used as a placeholder if you
+have to specify a backend somewhere, but don't really want to.  The
+classical example is if you don't want to have a primary select
+methods, but want to only use secondary ones:
+
address@hidden
+(setq gnus-select-method '(nnnil ""))
+(setq gnus-secondary-select-methods
+      '((nnimap "foo")
+        (nnml "")))
address@hidden lisp
+
 
 @node Combined Groups
 @section Combined Groups

=== modified file 'doc/misc/message.texi'
--- a/doc/misc/message.texi     2011-01-14 17:18:41 +0000
+++ b/doc/misc/message.texi     2011-01-24 23:38:05 +0000
@@ -886,6 +886,10 @@
 @cindex internationalized domain names
 @cindex non-ascii domain names
 
address@hidden is a standard way to encode address@hidden domain
+names into a readable @acronym{ASCII} string.  The details can be
+found in RFC 3490.
+
 Message is a @acronym{IDNA}-compliant posting agent.  The user
 generally doesn't have to do anything to make the @acronym{IDNA}
 happen---Message will encode address@hidden domain names in @code{From},

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-01-24 04:10:19 +0000
+++ b/lisp/gnus/ChangeLog       2011-01-24 23:38:05 +0000
@@ -1,5 +1,22 @@
 2011-01-24  Lars Ingebrigtsen  <address@hidden>
 
+       * shr.el (shr-expand-newlines): Proof of concept implemantation of boxy
+       backgrounds.
+       (shr-expand-newlines): Switch to using overlays to enable kill'n'yank
+       in a more sensible manner.
+
+2011-01-24  Teodor Zlatanov  <address@hidden>
+
+       * mml-smime.el (mml-smime-use): Make it a defcustom and default to 'epg
+       if EPG is loaded.
+
+2011-01-24  Julien Danjou  <address@hidden>
+
+       * shr.el: Use defface to create shr-tag-h[1-6] faces to fontify h[1-6]
+       tags.
+
+2011-01-24  Lars Ingebrigtsen  <address@hidden>
+
        * gnus-art.el (gnus-article-read-summary-keys): Don't call disabled
        commands.
 

=== modified file 'lisp/gnus/gnus-agent.el'
--- a/lisp/gnus/gnus-agent.el   2011-01-23 00:34:08 +0000
+++ b/lisp/gnus/gnus-agent.el   2011-01-24 23:38:05 +0000
@@ -203,8 +203,7 @@
                (const :format "When unplugged" t)))
 
 (defcustom gnus-agent-prompt-send-queue nil
-  "If non-nil, `gnus-group-send-queue' will prompt if called when
-unplugged."
+  "If non-nil, `gnus-group-send-queue' will prompt if called when unplugged."
   :version "22.1"
   :group 'gnus-agent
   :type 'boolean)

=== modified file 'lisp/gnus/mml-smime.el'
--- a/lisp/gnus/mml-smime.el    2011-01-14 17:18:41 +0000
+++ b/lisp/gnus/mml-smime.el    2011-01-24 23:38:05 +0000
@@ -37,7 +37,12 @@
 (autoload 'message-narrow-to-headers "message")
 (autoload 'message-fetch-field "message")
 
-(defvar mml-smime-use 'openssl)
+(defcustom mml-smime-use (if (featurep 'epg) 'epg 'openssl)
+  "Whether to use OpenSSL or EPG to decrypt S/MIME messages.
+Defaults to EPG if it's loaded."
+  :group 'mime-security
+  :type '(choice (const :tag "EPG" epg)
+                 (const :tag "OpenSSL" openssl)))
 
 (defvar mml-smime-function-alist
   '((openssl mml-smime-openssl-sign

=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el  2011-01-24 04:10:19 +0000
+++ b/lisp/gnus/shr.el  2011-01-24 23:38:05 +0000
@@ -82,6 +82,30 @@
                 (const   :tag "Use the width of the window" nil))
   :group 'shr)
 
+(defface shr-tag-h1 '((t (:bold t :height 2.2)))
+  "Face used for H1 tags."
+  :group 'shr)
+
+(defface shr-tag-h2 '((t (:bold t :height 2.0)))
+  "Face used for H2 tags."
+  :group 'shr)
+
+(defface shr-tag-h3 '((t (:bold t :height 1.8)))
+  "Face used for H3 tags."
+  :group 'shr)
+
+(defface shr-tag-h4 '((t (:bold t :height 1.6)))
+  "Face used for H4 tags."
+  :group 'shr)
+
+(defface shr-tag-h5 '((t (:bold t :height 1.4)))
+  "Face used for H5 tags."
+  :group 'shr)
+
+(defface shr-tag-h6 '((t (:bold t :height 1.2)))
+  "Face used for H6 tags."
+  :group 'shr)
+
 (defvar shr-content-function nil
   "If bound, this should be a function that will return the content.
 This is used for cid: URLs, and the function is called with the
@@ -618,7 +642,25 @@
        (shr-put-color-1 (point) (min (line-end-position) end) type color))
       (if (< (line-end-position) end)
          (forward-line 1)
-       (goto-char end)))))
+       (goto-char end)))
+    (when (eq type :background)
+      (shr-expand-newlines start end color))))
+
+(defun shr-expand-newlines (start end color)
+  (save-restriction
+    (narrow-to-region start end)
+    (let ((width (shr-natural-width))
+         column)
+      (goto-char (point-min))
+      (while (not (eobp))
+       (end-of-line)
+       (when (and (< (setq current-column (current-column)) width)
+                  (not (overlays-at (point))))
+         (let ((overlay (make-overlay (point) (1+ (point)))))
+           (overlay-put overlay 'before-string
+                        (propertize (make-string (- width current-column) ? )
+                                    'face (list :background color)))))
+       (forward-line 1)))))
 
 (defun shr-put-color-1 (start end type color)
   (let* ((old-props (get-text-property start 'face))
@@ -832,22 +874,22 @@
   (shr-generic cont))
 
 (defun shr-tag-h1 (cont)
-  (shr-heading cont 'bold 'underline))
+  (shr-heading cont 'shr-tag-h1))
 
 (defun shr-tag-h2 (cont)
-  (shr-heading cont 'bold))
+  (shr-heading cont 'shr-tag-h2))
 
 (defun shr-tag-h3 (cont)
-  (shr-heading cont 'italic))
+  (shr-heading cont 'shr-tag-h3))
 
 (defun shr-tag-h4 (cont)
-  (shr-heading cont))
+  (shr-heading cont 'shr-tag-h4))
 
 (defun shr-tag-h5 (cont)
-  (shr-heading cont))
+  (shr-heading cont 'shr-tag-h5))
 
 (defun shr-tag-h6 (cont)
-  (shr-heading cont))
+  (shr-heading cont 'shr-tag-h6))
 
 (defun shr-tag-hr (cont)
   (shr-ensure-newline)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]