Using saved parent location: http://bzr.savannah.gnu.org/r/emacs/trunk/ Now on revision 100603. ------------------------------------------------------------ revno: 100603 committer: Michael Albinus branch nick: trunk timestamp: Tue 2010-06-15 22:13:34 +0200 message: * auth-source.el (auth-source-pick): If choice does not contain a questioned keyword, set the check to t. diff: === modified file 'lisp/gnus/ChangeLog' --- lisp/gnus/ChangeLog 2010-06-12 17:26:40 +0000 +++ lisp/gnus/ChangeLog 2010-06-15 20:13:34 +0000 @@ -1,3 +1,8 @@ +2010-06-15 Michael Albinus + + * auth-source.el (auth-source-pick): If choice does not contain a + questioned keyword, set the check to t. + 2010-06-12 Romain Francoise * gnus-util.el (gnus-date-get-time): Move up before first use. === modified file 'lisp/gnus/auth-source.el' --- lisp/gnus/auth-source.el 2010-06-08 13:05:11 +0000 +++ lisp/gnus/auth-source.el 2010-06-15 20:13:34 +0000 @@ -229,7 +229,8 @@ ;; Check keywords. (dolist (k keys match) (let* ((v (plist-get spec k)) - (choicev (plist-get choice k))) + (choicev (if (plist-member choice k) + (plist-get choice k) t))) (setq match (and match (or ------------------------------------------------------------ revno: 100602 committer: Juanma Barranquero branch nick: trunk timestamp: Tue 2010-06-15 13:05:06 +0200 message: * facemenu.el (list-colors-sort): Doc fix. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2010-06-15 03:34:12 +0000 +++ lisp/ChangeLog 2010-06-15 11:05:06 +0000 @@ -1,3 +1,7 @@ +2010-06-15 Juanma Barranquero + + * facemenu.el (list-colors-sort): Doc fix. + 2010-06-15 Bob Rogers (tiny change) * progmodes/sql.el (sql-connect-mysql): Fix typo. === modified file 'lisp/facemenu.el' --- lisp/facemenu.el 2010-06-14 16:03:04 +0000 +++ lisp/facemenu.el 2010-06-15 11:05:06 +0000 @@ -503,9 +503,9 @@ `nil' means default implementation-dependent order (defined in `x-colors'). `name' sorts by color name. `rgb' sorts by red, green, blue components. -`rgb-dist' sorts by the RGB distance to the specified color. +`(rgb-dist . COLOR)' sorts by the RGB distance to the specified color. `hsv' sorts by hue, saturation, value. -`hsv-dist' sorts by the HVS distance to the specified color +`(hsv-dist . COLOR)' sorts by the HSV distance to the specified color and excludes grayscale colors." :type '(choice (const :tag "Unsorted" nil) (const :tag "Color Name" name) ------------------------------------------------------------ revno: 100601 author: Bob Rogers committer: Glenn Morris branch nick: trunk timestamp: Mon 2010-06-14 20:34:12 -0700 message: * lisp/progmodes/sql.el (sql-connect-mysql): Fix typo. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2010-06-14 16:03:04 +0000 +++ lisp/ChangeLog 2010-06-15 03:34:12 +0000 @@ -1,3 +1,7 @@ +2010-06-15 Bob Rogers (tiny change) + + * progmodes/sql.el (sql-connect-mysql): Fix typo. + 2010-06-14 Juri Linkov Add sort option `list-colors-sort'. (Bug#6332) === modified file 'lisp/progmodes/sql.el' --- lisp/progmodes/sql.el 2010-05-14 13:31:36 +0000 +++ lisp/progmodes/sql.el 2010-06-15 03:34:12 +0000 @@ -3119,7 +3119,7 @@ (setq params (append (list sql-database) params))) (if (not (string= "" sql-server)) (setq params (append (list (concat "--host=" sql-server)) params))) - (if (not (and sql-port (numberp sql-port))) + (if (and sql-port (numberp sql-port)) (setq params (append (list (concat "--port=" (number-to-string sql-port))) params))) (if (not (string= "" sql-password)) (setq params (append (list (concat "--password=" sql-password)) params)))